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TITLE* 85500/85700 MaKK XIV SYSTEM KELEASE 

FILE ID: SYMBQl/PMENGE TAPE ID: SYMB0L2/F I LE000 * 

-IMI1_.MATFRJ.AJ IS PROPRIETARY TO BURROUGHS CORPORATION * 

AND IS NOT TO BE REPRODUCED* USED, UR DISCLOSED * 
EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 
WRITTEN AUTHORIZATION OF THE PATFN T DIVIS ION nF * 
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BY SECTION' 

B"570C PATCH/MERG E USER MANUAL IN XRFF FORM, 

OUTER BLOCK DECLARATIONS AivD DEFINES. 

UTILITY PROCEDURES. 
. — EiiJIC ESS JiBHC E D UxiE-i 



INPUTPHASE procedure. 

INPUTPHASE PROCEDURE DRIVER. 
ntJTPiiTPH-SE PRnrfniiHt. . 

0UTPUTPHAS_ PROCEDURE DRIVER. 
PROCESS PROCEDURE DRIVER. 
OU TER BLOCK DRIVER . __ 
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COMMENT DOCUMENT 

*DEFINE 1 = SKIP 2 INDENT 4 INDEX DULY* 

*DLF INE 2 -_ S KIP 4 UNTUNE 1 lNp£l\T 2 
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*00190000 

__aa«iaaaao. 



♦DEFINE 
♦DEFINE 
•DEFINE 



3 a SKIP 
* * PAGE 
5 _r PAGE 
NO SKIP 



♦PAGE NO SKIP 30 CENTER 
B-5700 PATCH/MERGE 

*S_KIP 2 CENTER 

USER "" GUIDE" " 

♦SKIP 2 CENTER 
MARK XV. 3. 00 



2 PAR INDENT 2 INDEX ONLY* 
1 SKIP 2 UNDERLINE 1 INDENT 
1 SKIP 2 INOEX* 



INDEX ONLY* 



00210000 
00220000 
00230000 



2 INDEX ONLY* 
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00280000 
00290000 



*SKIP 30" INDENT" 
FEB i, 1974 
*T1TLE CE NTER 



50 



00300000 
00310000 
00320000 



B-5700 PATCH/MERGE USE" GUIDE 

♦page i skip 4 index underline 

INTROD UCTION 



00330000 
00340000 
0035000Q 



1 CENTER 



♦PARAGRAPH 1,70,0 ~ 

THIS PROGRAM IS TO BE USED TO CREAT- A MASTER PATCH DECK FROM 
THE INDIVIDUAL PATCH DECKS RELEASED BY BURROUGHS ON LIBRARY 



00360000 

00170000 

JLQ!._______. 



DUMP TAPES. THIS MASTER PATCH QECK 
PROGRAM FOR WHICH THE PATCHES WERE 
OFFICIAL BURROUGHS PATCH RELEASES 
r«QGRAM IS BEING USED TO COMPILE 
♦PAGE 1 SKIP 2 INDEX UNDERLINE 1 
INPUT PHASE 



IS THEN USED TO COMPILE THE 

RELEASED. 

ASSUME THAT THIS PATCH/MERGE 
THE PHUGRAM BEING PATCHED. 
CENTER 
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00400000 
00410000 



00*20000 
00*30000 
00*40000 



*PAR 

DUHING THE INPUT PHASE, PATCH/MEKGE HEADS ALL CARDS 

INPUTTED TQ IT FROM CARDS, IF SPECIF IEQ, FROM DISK. THE INPUT 
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IS ANALYZED TO SEE IF ALL THE PATCHES AHE FOR ThE SaME 

PROGRAM* THERE ARE AS MANY CARDS IN EACH PATCH Ai> 
■JiM£_aEm.JSPE£If.lEDf AND 51) FQKTh. _J J ANY DISCREPA NCIES AHE DETECjEn, 

THEN AN APPROPRIATE, SELF-EXPLANATORY ERROR MESSAGE IS EMITTED* 

WHETHER LISTI OR LIST IS SET OR NOT, 

-*&KiP_i_EAR. 



IF LISTI OR LIST IS SET* ALL INPUT *IlL Bi. LISTED \$ IT 
IS ENCOUNTERED, IF THERE ARE DUPLICATE PATCH NUMBERS IN DIFFERENT 
JmiL&j-JJiEN PATCH/MERGE hT LI, LI ST ThE Qu Pl \ C,Al.L^J^HJLAii& 



00510000 
005i;0000 
_il05-3_QjQD.O. 
00540000 
00550000 

_.ojD3.6J1ogjl 



THEM AS •♦DISCARDED" ON THE LISTING, IF THE DELETE OPTION HAS BEEN 
SPECIFIED, THEN PATCH/MERGE WILL LIST ALL DELETED PATCHES, MARKING THEM 

AS "DELE TED" ON THE L TSTING. 

IF ANY PATCH IS DESIGNATED TO BE DELETED ON A "4*»" CARD, BUT 
PATCH/MERGE DOES NOT ENCOUNTER IT, THEN 
J.H_£__DXL£-l£ WILL H F . 



IGNORED ANO NO ACTION TAKEN, 
ANY PATCHES PRESENT In THE INPUT WHICH ARE DISCARDED OR DELETED 
.SHOULD NOT BE INCLUDED IN THE TOTAL NUMBER UF_PAl£H£_S 



• SKIP 

INPUT 



2 UNDERLINE 
FI.LE.S_ 



SPECIFIED ON THE "S,» 
1 INDENT 2 INDEX ONLY 



CARD, 



*PAR 

FROM ONE TO THREE FILES CAN BE USED AS INPUT TO PATcH/M £ RGE» 
'UNDERLINE I SKIP 1 TAB 8,30,42,55 



file type/ precedence/ symbol/ 

CMP. 



FILE NAME/ 
♦SKIP 
L. CARD.._. _ 

2. PATCH/<PROGRAM ID> 

3. PATCHES/<PROGRAM ID> 

J*.SK.1P._1_PAB_ 
WHERE <PROGRAM 

COMBINATION OF 
*SKIP l PAR 



00570000 

ooseoooo 
xu}5.«:.aoD.a 

00600000 

00610000 

JlOfiiiflflXLQ. 

00630000 

00640000 

oo.6-5.qoqg. 

00660000 
00670000 

QQ68J30.QO 

ooovoooo 

00^00000 

...QSL't 1Q 00.0 

0072QOOO 

00730000 

JLQlJOfijaO. 



PJilUARjL 



DISK 
DISK 



SECONDARY 
TERTIARY 



P 
D 



ID> IS SPECIFIED UN A «$." CARD AND 
ALPHANUMERIC CHARACTERS UP TO SEVEN 



MAY BE uP ANY 
CHARACTERS IN 



00750000 

00760000 

ASUZQGAQ.. 

OC780000 

00790000 
_QJlfiMQflfl_ 



THE FILES, AS LlSTEO ABOVE* ARE IN DESCENDING 

ORDER OF PRECEDENCE. FOR EXAMPLE. IF THERE wERE A PATCH NUMBER 

9 IN I IL£ CARD AN D IN FILE PATCH/<PRUGRAM ID>, 

TFEn p'aTCH/'mERGE WOULD USE THE PATCH FRCM CARD AND 

DISCARD THE ONE In PATCH/<PROG.<AM 1D>. SUPPOSING THERE fcERE THREE 
D J/ f S3 E Nj _P A T C HES NUMBER EU 27, PATC H / MERGE wqUlO AUTQwaT IC ALl y 
USE THE ONE FROM THE FILE CARD AND DTsCARD """"' 



OO^lOOOO 

length, ooaaoooo 

00830000 



THE OTHER TWO. 



LATER. 



THE ONE 
SEE FURTHER EXAMPLES 
♦SKIP 1 PAR _ _ 

of "The card 'reader' input file to Patch/merge must 
(see the examples below") t*is is the only 



THE NAME 
BE CARD. 
PATCH/MERGE INPUT FILE THAT 



00840000 
00850000 
008OQQO0 
00 8 7 000 0' 
OOBdOOCO 
00890000 
00 9 000 00 
00910000 
00920000 



*SKIP 1 

CC FILE CARDspMCARD 
*SKIP 2 PAR 



CAN Be LABEL-EQuATEQt FOR EXAMPLE' 



00930000 
00940000 
00950000 



READER 



THL THREE SYMBOLS INDICATED IN THE ABOVE TABLE AHE THOSE PRINTED ON 
THE INPUT, CONFLICTS, OR OUTPUT LISTINGS IF lISU, CONFLICTS, 
OR LISTG, RESPECTIVELY. IS SET . THEY INDICATE 



00960000 
00970000 
00980000 



WHICH FILE A PARTICULAR PATCH IS BEING REAU FROM 

*PAGE 1 SKlf 2 UNDERLINE 1 INDEX 

PATCH/MERGE CONTROL CARDS _____ 



00990000 

oioooooo 

01010000 



♦PAR 

THERE ARE SIX TYPES 

♦TAB 13,16,29,32 



O1O2O000 
01030000 
01040000 



OF PATCH/MERGE CONTROL CARDS? 



1,/$*/ 
2./S./ 

3./$+/ 



4./$*/ 
5,/*!/ 
6. /SI/ 
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♦2 
»♦ $ p t« 

♦ PAR 



CARD 



THE. FIRST CARD (AFTER THE "CC DATA CARD") INPUTTED TO PATCH/MERGE 

MUST BE EITHER A ♦•$$« CARD DR A "S." CARD. THE "$0« CARD IS OPTIONAL 
-ANOj. IF IT is mi siippi irn. thf np-rrniuQ C ARn.i r st. AK,n 7?p 



onioooo 

OlicOOOO 
-XLU 3Q OQJ3.. 



ARE AUTOMATICALLY 

*SKIP 1 PAR 

THE "SP" CARDS MU ST 



SET BY DEFAULT. 

HAVE THF CHAlilACrfcrtS 



01140000 

01150000 

-01160Q0Q- 



"**" IN COLUMNS ONE AND TWO. THE RES! OF THE CARD MAY CONTAIN 
ANY OPTIONS THE USER WISHES TO USE DURING THE CUKRENT RUN Of 
PATCH/MER GE. ANY OPTIONS MOT RECOGNIZED BY PAT CH/M ERGE 



01170000 

onaoooo 

01190000.. 



WILL BE TREATED 

*SKj.p 1 PAR 

IN GENERAL* THE 



AS COMMENTS, 

"$g" CARD IS EQUIValE N T 



01200000 
01210000 
0122 0000 



TO THE S-CARDS USED WITH 



COMPILERS WITH ONE CRITICAL EXCEPTIONS 

"$*« OPTIONS CAN NEVER BE RESET IN ANY PARTICuLAK R^N, 
JLL_ M ORE THA_N ONE "$»" CARD IS USED* THEN T HE SECOND* 
DOES NOT RESET ANY OPTIONS* BUT ONLY SETS 
THE OPTIONS SPECIFIED ON THAT PARTICULAR CARD. 
♦SKIP 1 PAR ENDPAGE 7 



THAT IS* 
THIRD* ETC. 



THE M Se" OPTIONS" 
♦SKIP 1 INDENT 4 
CARD 



AVAILABLE FOR 
INDEX ONLY 



patch/merge aRe* 



♦PARAGRAPH 



7*60,0 SINGLE 

all input to 
reader only . 



PATCH/MERGE 
PATCH/MERGE 



♦1 



PATCH FILES THAT MAY BE ON DISK 



WILL BE FROM THE 
WILL IGNCJHE ANY 



CARD 



CONFLICTS 



♦PAR SINGLE 



PATCH/MERGE WILL LIST UN A LINE PRINTER 
ANY CONFLICTS AMONG PATCHES AND INDICATE 



THESE CONFLICTS WERE RESOLVED. 
SEE THE SECTION "CONFLICTS (MERGE) PHASE." 
_*- S _ K lP 2 INDENT 4 INDEX ONLY ENDPAGE 18 



hOW 



DELETE 
♦PAR SINGLE 



PATCH/MERGE WILL Pa^S Q yER ANY PATCHES INPUTTED 



WHOSE NUMBERS FOLLOW THE DELETE OPTION* 
BUT LISTING THE DELETED PATCHES ON THE LINE PRINTER IF LIST OR 
LISTJ IS SET. 



FOR EXAMPLE. SUPPOSE THE FOLLOWING CAHD WERE 
INPUTTED TO PATCH/MtRGE » 
♦SKIP 1 INOEN T 15 



it DELETE 4*20*103 
♦SKIP l PAR SINGLE 
; F A T C H / M E R Q E WOOL P S K I P OVER PATCHES 4* 



103 IF TH£Y EXISTED IN ANY OF ThE 
PILES FOR THAT PARTICULAR RUN. IF 
OPTION IS USED* IT MUST EITHER BE 



20* AND 



PATCH/MERGE INPUT 

THE DELETE 

THE LAST OPTION 



SPECIFIED m jA PARTICULAR «$f« CARD* OR IT MUST 
BE THE ONLY OPTION SPECIFIED ON A PARTICULAR 
- " ** " CARD. ANY OPTIONS FOLLOWING THE DELETE OPTION 



♦1 



ON ANY PARTICULAR "S*" CARD WILL BE IGNORED 



..FINAL 



♦PAR SINGLE 
MEBflr, 



THE USE OF THIS OPTION WILL CAUSE THE OPTIONSI 
ZIP* NFW niSK* NONQ* ANn MST Tfl All 
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01 2500 00 
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01280Q0 Q 

012*0000 
01300000 
S1510QLQ.0 
01320000 
01330000 
■ _0l34OJLQJL 
01350000 
01360000 

o 1 3 y o p o o. 
onaoooo 

O13VO000 
JJliLQ.fiO.QQ.. 



01410000 
01420000 
Ql430g 00_ 



01440000 
01450000 
014 60000 



OH/'OOOO 
01460000 
01490000 



01500000 
01510000 
01520000 
01530000 
01540000 
01550000 



01560000 
01570000 
015BOQO0 



015VO0O0 
01^00000 
01610000 



01620000 
01630000 
01640000 



01650000 
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016/0000 
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O16VO000 
01700000 
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BE SET. 
*1 

.LIS T 

♦PAR SINGLE 

USE OF THIS OPTION rtlLL CAUSE THL OPTIONS! LI5TI* 

-.- __ LlSTG* AND CONFLICTS TU BE SET. 

M 

LISTG 

*PAR SI 2_G__ _ 

PATCH/MLRGE WILL LIST THE SORTED PATCH DECK GENERATED. 
♦I 

_.__ LJ__ 

♦PAR SINGLE 

PATCH/MERGE WILL LIST ALL INPUT. 

»1 

MERGE " " ~ "~ 

*PAR SINGLE 
_IF AT LEAST O NE OF THE OlSK FILES ExlST* INPUT TO PATCH/MERGE WILL BE 
BOTH FROM CARDS AND FROM DISK. HAUH/MERtiL 

WILL AUTOMATICALLY CHECK IF EITHER OR BOTH OF 

_ _ THE FILES "PATCH/<PHUCiRAM 1 D > '« Q H 

w PATCHES/<PROGRAM I0>" ARE ON DJSk.'IF ONE OR 

BOTH IS ON DISK* THEN PATCH/MERGE WILL AUTOMATICALLY 

-.- -EAS E THE THREE INPUT FILES. IF NEITHER IS UN DISK* 

THEN PATCH/MERGE kIlL lSE THE FILE CARD FOR 
INPUT* ONLY. 

__L -... - . 

NEW DISK 
♦PAR SINGLE 

P. AT CH/MeRGE WILL CREATE A NeW* UNSORTeD MASTER 

FILE ON OloK CONSISTING OF ALL PATCHES INPUTTED 
WHICH WERE USED IN GENERATING ThE SORTED PATCH DECK, 

PATCH/MERGE WILL NAME THIS FILE "PA T CH_5/ < prqGR*M ID>". 

IF A PREVIOUS MASTER FILE EXISTED* 
IT WILL AUTOMATICALLY BE 

_ PURGED BEFORE THE NEW FILE IS CLUSED* 

AS WILL THE FILE PATCH/<PKUGKA* l0>. " " ~ 

HOWEVER* IF ANY ERRURS ARE DETECTED bY PATCH/MERGE DURING 

___E ...INPUT PH A SE' THEN NO NEW DISK FILE HILL BE CREaTED AND NO 

DISK FILES WILL 8E PURGED* EVEN THOUGH NEW DISK IS SETt 
♦SKIP 2 INDENT 4 INDEX ONLY ENDPAQE 8 

____ ; ; 

*PAR SINGLE ~~ " " 

PATCH/MERGE WI l l NOT ATTEMPT TG PUT THE PATCH NUMBER 

ON EACH GENERATED PATCH CARD. IF THIS OPTION IS 

♦NOT* SET* THEN ON EACH PATCH CARD GENERATED THAT HaS 
COLUMNS 68-72 BLANK* PATCH/MERGE WILL AUTOMATICALLY 

INSERT THE PATCH NUMBER OF THE PATCH TO WHICH THE 

CARD BELONGS. 
♦SKIP 2 INDENT 4 INDE* ONLY ENQPAGE t> 

PUNCHg ^ 

♦PAR SINGLE ~~ 

PATCH/MERGE Wl uL PUNCH OUT ON AN GN-LlNE CARD 

PUNCH THE GENERATED PATCH DECK* EXCLUSIVE OF 

MCP AND PATCH/MERGE CONTROL CARDS, 
♦1 

PUNCHI 

♦PAR SINGLE 

PATCH/MERGE WILL PUNCH OUT ON AN ON-LINE CARQ 
PUNCH A DECK CONSXSTINQ OF ALL INPUT PATCHES 



oi/ioooo 

Ol7_0000 
J_LZ_1_JQ_U_- 



01/40000 

01750000 

J_1__LQ__Q_ 



01/70000 
01/80000 
01790000 



O18C000O 
01810000 



01830000 

oieaoooo 

Qli_ Oj__ 

01860000 
01870000 

_0_8 80000. 

01890000 

oivooooo 

_ oiyioooo 

01926660 

01930000 
019 40000 



01950000 

01960000 

JUStliiSUSJ}- 



01980000 
01990000 
020000 00 
020100C0 
02020000 
02030000 



02040000 
02050000 
02060Q00 



02070000 
02080000 
0209 0Q00 



02100000 
02110000 
0P12000Q 



02130000 
02U0000 
02150000 



02160000 
02170000 
02180000 



02190000 
02*00000 
022 10Q00 



02220000 
02230000 
02240000 



02250000 
02260000 
02270000 



02260000 
02290000 
023OOQ00 



T* 
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USED IN GENERATING THE SORTED PATCH DEC*. 

* SKIP 2 INDENT 4 INDEX ONLY 

ZIP _..._ ^ 

*par single 

patch/merge will automatically up the generated 
p atch peck. 

*1 
NEWFRE 

_jl par S IN& L£ 

PATCH/MERGE WILL CREATE A NEW UNSQRTtD FILE 
"PATCH/<PROGRAM ID>" ON DISK CONSISTING QF 

ALL T HE PATCHES INPUTTED VIA TH£ CARD READER . 

IF A FILE EXISTS* IT WILL BE PURGED AFTER IT HAS 
BEEN PROCESSED AND A NEW FILE WILL BE CREATED 

PROVIDED. THE FOLLOW ING CONDITIONS AHE MET. FIRST* _ 

"NEW" OPTION MUST BE SET/ SECOND* TH£R£ MUST BE 
CARD INPUT* AND THIRD, ALL INPUT DISK AND CARD MUST BE 

ERROR FREE. _ 

*2 

"S." CARD 

....* PA RAG RAP.H _ _1 .#ZO#JD.__ 

THE •'$,« CARD MUST HAVE THE CHARACTERS 
"*•" IN COLUMNS ONE AND TWQ. THE REST OF THE CARD MUST CONTAIN THE 

_hiyMfl£fi_ OF PATCHES AND THF IOFNTlF 1 C A T I ON Q£ Tjj£ PWQfiRAM W HITH T"F 

PATCHES ARE FOR. THE FORMAT OF THIS CARD IS» 
*SKIR 1 INDENT 5 

_*j <numbeR Of patches> for <program in> <cOhhents> 

*SKIP 1 PAR 

WHERE <NUMB£R OF PATCHES> MUST BE AN INTEGER BErW t£ N Z E RO ANo 999» 

...INCLUSIVE* AND <PROGRAM ID> MAY BE ANY IDE.nTIFIEK CflNTAlNlMi 

UP TO SEVEN ALPHANUMERIC CHARACTERS 

IN LENGTH. IF <NUMBER OF PA1CHES> IS ZERO* THEN PATCH/MERGE WILL 

AUTOMATICALLY CHANGE IT TO Q N F. 

*2 

"$*" CARD 

*PA R 

patch/merge creates and 21 ps a control deck containing the merged" 
patches, the mcp control cards used in this control deck must be 
i p e c i f i_e d _j y__c ards hhich have the characters "s + " jn columns une and 
two, (patch/merge will automatically substitute a question mark ano 
a blank in columns qnf. and two for the "$*" supplied), 

T HE _R E MAlNlNG SEVENTY COLUMNS CAN CONTAIN Any CONTROL CARD 

INFORMATION DESIRED. THIS TYpE LiF CARD MUST PRECEDE ALL PATCH/MERGE 
CONTROL CARDS EXCEPT THE «$." OR "P" CARD, 

ANY INPUT TO PATCH/^ERGE MUST CONTAIN AT LEAST 

ONE "$*" CARDt 
•SKIP 1 PAR 

NOTEiTHEBE MUST BE AT LEAST ONE 

PS^UDOREADER IN USE OR lHf CONTROL DECK hlLL NOT BE SCHEDULED BY THE 
MCP, 

»2 ______„ 

"$"" CARD 

* P AR 

PATCHES WHICH ARE NOT TO BE MERGEO (E.G. DOLLAR CARpS) MAY BE 

INCLUDED AS THE FIRST PATCH DECK. Th£ HEADER CA*D FOR THIS DECK 

MUST HAVE THE CHARACTERS ♦•$-" IN COLUMNS ONE AND TWQ, THE REMAINDER 

OF THE C ARD MAY CONTAIN COMMENTS. TH£ CARDS IN THIS DECK WILL BE 

THE FIRST CARDS OF THE MASTER PATCH DECK. 

#2 

"SI" CARD 



02310000 
02320000 



02340000 

02350000 

.0.2-360000, 



02361000 
02361100 



02361200 
02361300 

-0-21. 6 UQQ _ 



02361500 
02361600 
0236170Q 



02361600 
02361900 
0P 362n0Q 



Q2370Q0G 
02360000 

02400000 

02410000 

-0?42 00Q.Q„. 

02430000 
02440000 

02460000 
02470000 

■ Q2 <tftaafl.fi-. 



02490000 
025U0000 

025*0000, 



02520000 
02530000 

„025i4.Q_aO-G-. 



02550000 
02560000 
02570000 



02560000 
02590000 
0260000Q 



02610000 
02620000 
02630000 



02640000 
02650000 
02660000 



02670000 
02680000 
02690000 



02700000 
027"10000 
02720000 



02730000 
02740000 
0275000Q 



02760000 
02770000 
0278000Q 



T^ 



• • 



fl- 



19 

20 
21 
22 



25 



27 
28 " 



30 



34 
35 
36 

37 ~ 

3S 

39 



42 
43 ~ 



44 
45 



47 
48 



49 

50 



52 



55 
56 



♦PAR 

ACTUALLY* THE "$t" CARD IS l\DT A CONTROL CARD* BUT A COMMENT 
-C.A "P. -II- 1S_ . USXD TQ INTERSPE RSE CCMmEnTS imirh PATCh/Mt 

IN GENERAL* ALL "$:» CARDS WILL BE LISTED IF LIST I IS SET* 

BUT WILL OTHERWISE BE IGNORED BY PATCH/MERGE. IF THE NEW DISK OPTION 
..HA^.-B.E.IiLSEIj T HEN PATCH/MERGE W ILL INCLUDE THESE COMMENT CAR DS 

IN THE NEW DISK FILE. 

* SKIP 4 UNDERLINE 1 INDENT 2 INDEX ONLY ENQPA3E 24 

" S»" CARD __ 



*PAR 
INDIVIDUAL PATCH DECKS MUST BEGIN 
COLUMNS ONE AND TWO AND TH F PATCH 



THROUGH SEVENTY-TWO 
*SKIP i 
-$J__PAICH 



WITH A CARD WHICH 
IDENTIFICAT ION I N 



THE STANDARD FORMAT FOR THIS CARD 
NUMBER <I NTEGER> FOR <PKUGHAM ID> C O NT, 



HAS "$*" IN 
COL UMNS IflREX. 



IS J 



♦SKIP 1 PAR 
WHERE THE <INTEGER> SPECIFYING PATCH NUMBER 
_l£RD_...AN.D ...9.9.9.1 INCLUS TVF, ANH THF <!NTFfiFa> 



L*_£A&fi 



OF CARDS 
MU*T, MINIMALLY* 
♦SKIP 1 P AR 



MUST BE AN 
SPFC.l fYTN G 



INTEGER BETWEEN 
THE NUMBER.- - 



BE ONE 



AN ERROR WILL 8E INCICATED IF THE PATCH DECKS AH t N QT IN ASCENDING 
ORDER* IF THE PROGRAM IDENTIFICATION DOES NOT AGREE WITH THAT OF 
-Jjj£... w $. w CARD, IF THF NUM BER OF CARPS PRESENT DOES NQT 



AGREE WITH THE NUMBER OF CARDS GIVEN ON TMiS CaHO' ETC. ALL PATCHFb 
RELEASED BY BURROUGHS HAvE THE PROPER HEADER CARD AS THE FIRST 

CARD..O-F ..IH£_QE£JU _._. 

SKIP 2 INDEX UNDERLINE 
(MERGE) PHASE 



02^*0000 
02800000 

_.QxllO.O_Q.Q_ 
02820000 
02830000 

_Jl2MSnflfl.. 
02850000 
02860000 

02880Q00 
023*0000 
02*00000 

02*10000 
02*20000 

s 02 yj 0-ao.o 

02*40000 
02 950000 

0.2 9 6 on no. 

029^0000 
02*80000 

.. JU*9_Q.Q0.il 
03000000 
03010000 

nafliflaoii- 



1 CENTER 



♦PAGE 1 
CONFLICTS 

♦J'.AR... _.._ __ : 

BESIDES MERGING PaTCH DECKS' PaTc h /«E r GE RESOLVES CONFLICTS aMOWq 
PATCH DECKS. IF TWO CR MORE PATCH DECKS HAVE IDENTICAL SEQUENCE 
_N_y M j£.Ri£„.THE_N PA TCH/mf.RGE WILL h ISCmRq ALL OUT THE CNF. FROM THE DFCK 



WITH THE HIGHEST PATCH NUMBfR* 
♦SKIP 2 UNDERLINE 

.J!lVQini^.AfiJB.S__ 

♦ PAR 



I 



INOENT 2 INDEX ONLY 



.SPECIAL ACTION 

CAR D IS 

PATCH 



IS TAKEN SO THAT 



IF 
THE 



A VOID CARD IS TQ BE DISCARDED' 
V OIDING I S ACC UmPlISHE D . h H E N 



A VOID 
FROM THE 
LOWER PATCH 

"are" a l"sb~"s*o handled, when they a he lncounTere~d"ThTlT discarding, 

THERE ARE CARDS INI DECKS vUTH HIGHER PATCH NUMBERS THAN THE VOID 
CARD WHICH FALL InTQ THE V OIDING RAflGE* THE NECESSARY VoID CARDS ARE 



ENCOUNTERED' CARDS IN THE VOIDED RaNGE ARE OlSCARDED 
DECK IN KHICH THE VOID W AS FOUND, AND IN ALL DECKS OF 
NUMBER. VOID CaRQS IN TH£ DECKS OF LOrt£R PATCH NUMBER 



03030000 
03040000 

.03.ojjo.aDa. 

03060000 

030/0000 

..-ca.D£..o.Q aa.. 

030*0000 

03100000 

O3U OQ00 
03120000 
03130000 
.. 011.4 QQQJL 
03150000 
03160000 

0.3 lyoooo 

03180000 
031*0000 
03200000 



IF 



GENERATED SO 
THOSE HIGHER 
♦SKIP 2 PAR 



THAT THE 
NUMBERED 



TAPE AREA 
DECKS ARE 



IS VOIDED 

NOT. 



BUT THE PATCH CARQS FROM 



03210000 
03220000 
03230000 



PURPOSES 
ONE, AND 



NOTES FOR THE 
PRUGRAM, "VOID" CARDS MUST HAVE THEIR «$" In COLUMN 
VOIDING SEQUENCE AND RANGE HUST til EIGHT DIGITS IN LENGTH. 
THIS IS GOOD PRACTICE* ANYWAY, " 

♦SKIP 2 UNDERLINE i INDENT 2 INDEX ONLY 
W *VQIQT" CARPS 



OF THIS 
THE 



03240000 
03250000 
O326QQ00 
03270000 
03280000 
032*0000 



♦ PAR 

IN THE MERGE PHASE, "SVQI'DT" CARDS ARE 

CARDS WITH RESPECT TC PATCHES LOWER In 



03300000 
03310000 
03320000 



TREATED The 
NUMBER THAN 



SAME AS "SVQIO" 

THE PATCH 



CONTAINING THE "SVOIDT" CARDt CARDS In THE "SVOIDT" RANGE WHICH ARE 

CONTAINED IN PATCHES WITH A NUMBER THE SAME AS OR HIGHER THAN THE PATCH 
CONTAINING THE *SVOIQT w CARP ARE SIMPLY INSERTED IN THE GENERATED 



03330000 
03340000 
0335 0000 
"O31WO00 
03370QOQ 
03380000 



18 

19 



23 ' 



26 ' 
27 
28 
29 ' 
30 



34 

35 ! 

36 

37 



47 
48 
49 



52 
53' 



55 
56 



m 



i 




9 

10 



13. 



if. 

17 






19 

:.'0 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

46 

46 

47 

t8 

49 

50 

51 

52 

53 



54 

55 
56 



PATCH OECK ALONG WITH THE "»V0IOT" CARD. 
*SKIP 2 UNDERLINE 1 INDENT 2 INDEX UiUY 
WORK F I LE S 



*PAR 

THE WORK FILES USED BY PATCH/MERGE HAVE TWENTY ROWS OF 300 RECORDS 
___*________. NU MBER OF ROWS MAY BE CHANGED BY SPE CI FYING THE DESIRED 

VALUE ON A "COMMON" CONTROL CARD wHLN EXECUTING PA fCH /MERGE . 

*PAGE 1 SKIP 2 INDEX UNDERLINE 1 CENTER 

DECK SET UP AND EXA MP| FS. 



03390000 

03400000 

_L__1_.__.Q. 



*2 

INPUT FROM CARDS 

*PAR 



034_0Q00 
03430000 
03440000 
034,0000 
03460000 
__3_______ 



ONLY 



LET US ASSUME THAT W£ WANT TO COMPILE 

A PROGRAM WHICH HAS A SOURCE FIlE* S OuRCE/P RGxH * 

J__J1__I TO ADD TH REE PATCHES TO THIS F_L___ __U WE 



03460000 
03490000 
03500000 



THREE PATCHES PUNCHED ON CARDS SUITABLE FQR InPuT 
WE COULD USE THE FOLLOWING DECK SET UP: 

______ _2 INDENT 5 STKfil E . __ _ 

♦INVALID ALL 3 

EXECUTE PATCH/MERGE 

_.a_____L_R_ .-.- : , 

*INDENT 5 SINGLE 

$. 3 PATCHES FOR PRGXlI 

S + COMPI LE OB JECT/TST WIT H ALG OL FOR Llri RAKY 

$*ALGOL FILE TAPE = SOljNCE/ PRGx 1 1 TAPE 

$*data card 

stapeTisT 

$#patch number 1 for prgxii contains 20 cards 



UN TAPE, 
_U V E TH E 



TO PATCH/MERGE. 



03^10000 
03520000 
-0 3S.QQQj_. 
0354Q000 
03550000 
3 _______ 



035/0000 

03580000 

..XX35. 000,0. 



03600000 
03610000 

__________ 



— i •_._ 

* • 
<PATCH DECK> 

*. __ 



03630000 
03640000 

_ JQ______Q___.. 

03660000 
03670000 

_Ll6.a_.Q_0.. 

03690000 

03/00000 
__________ 



S«PATCH NUMBER 2 FOR PRGXII CQinTaInS 4 CARDS 



03720000 
03730000 

_L_____Q._. 



<PATCH DECK> 



03750000 
03760000 
03. 70000 



$#PATCH NUMBER 3 FOR PRGXII CONTAINS 14 CARDS 



03780000 
03790000 
0-900 000 



<PATCH DECK> 



03810000 
03820000 
03830000 



♦SINGLE INDENT*5 
♦INVALID 3 



END. 
*SKIP 2 PAR 
SINCE THE "$." 



03840000 
03850000 
038000 00 



CARD IS MISSING FROM THE ABQy£ INPUT DECK* THE 



03870000 
03880000 
038. 0000 



OPTIONS CARQ. LIST, AND ZIP WILL AUTOMATICALLY BE SET BY DEFAULT, 

THEREFORE* EVEN IF ONE OR BOTH OF THE FILES "pATCH/pRGxII * OR 

"PATCHES/PRGXII" ARE ON DISK* PATCH. MERGE WILL NUT ATTEMPT TO 

USE THEM AS INPUT* BUT USE ONL^ THOSE PATCHES INCLUDED IN THE CARD OECK. 03*30000 



THEM AS 
*SKIP 2 PAR 
NOTE THAT* ULTHQUGH 



03*00000 
03910000 
03920000 



<PROGRAM ID> WHICH HAS 

ANY MCP CONTROL CARDS USED DO, 

♦PAGE 1 SKIP g PAR 



PATCH/MERGE DOES NOT REQUIRE QUOTES ARQUND A 



03*40000 
03*50000 



A SPECIAL CHARACTER(S)* 



03960000 
03970000 
03*80000 



47 ' 

46 

49 

50 \ 

51 

52 

53 ( 

54 

55 

56 ' 

57. 



• • 



ft 

3 



12 
13 
14 
15 



i 



16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

38 

37 ~ 

38 

39 



• 
• 



40 
41 
42 
« 



45 
46 
I 47 
48 
49 
50 
51 
52 
53 
54 



55 
56 



THE FOLLOWING IS AN EXAMPLE QF A DECK WHICH HUULD COMPILE THE MCP 
FROM THE TWO PATCH DECKS GlVEM 
-*SKJLE_..2._,.._lJiD£N J 5 SINP LL 



♦INVALID ALL 1 

EXECUTE PATCH/MERGE 
_ FJJJE JLA_RD_sJP MC AJBO_ 



DATA PMCARD 
♦INDENT 5 SINGLE 

- SPCARO LISTT LTSTG \CNO 

S,2 PATCHES FOR MCP 
S*EXECUTE ESPOL/DISK TO 
$* F ILE DISk«MCP/DISK. 



COMPKE THE MCP 



$*FILE TAPEaSYMBOL/DCESPSY. 
4*FILE LINE*LINF BACK UP DISK 
S*FILE CARDxMCPCECK 



$*OATA MCPOECK 
S-DOLLAR CAROS NECESSARY FOR MCP COMPILATION 
_*S E L. DA TACOM»FALSE* DEBUGGINGS ALSE*DUM P«FaLSE 
SSET CHECKLlNK«TRUE»BREAKQUT«Thi)E#DISKLOGaFALSE 
SSET DFX*FALSE> JNQU lRY = TRuE* AoXMEM«fALSE 
sSET SHARED I SKsFALSE^B6500L0AU = T RLE »QCLOG aFALSE 



SSET DCsPO=FALSE>SAVERESULTS*FALSE»STATlSTlCSsFALS£ 
STAPE LIST PRT 
A*PATCH NUMBER 1 FO R MCP CONT AINS 40 CARDS 



<PATCH DECK> 



$#PATCH NUMBER 2 FOR MCP CONTAINS 10 CARDS 



< PATCH DECK > 



*singCe 

♦INVALID 
END 



INDENT 
1 



*SKIP 2 PAR 

THE ABOVE DECK WOULD CAUSE PATCH/MtRliE TO READ 
IGNORING ANY DISK FILES WHICH MAY BE ON 



ONLY THE CARDS* 

DISK* SINCE THE OPTION 



03990000 
04000000 
-QMl5.0_o_a. 



04020000 

04030000 

._Q_4J)4_QQJ10_ 



04050000 
04060000 



04000000 

04090000 

-MiM.fli.0. 



04110000 
04120000 

■ -Q 4l3 .Q_gQJ3 
04140000 
04150000 
04160000 
04WOOOO 
04160000 
041^0000 



04200000 
04210000 



04230000 
04^40000 
-QAZ^HOO-O- 
04260000 
04270000 
04280000 



04290000 
04300000 
0431QQ0Q 



04320000 
04330000 
-Qll*fOOOO 
"04 350000 
04360000 
043 /000 
"04380000' 
04390000 
04^00000 



THE 



CARO IS SET. THE INPUT WOULD BE LISTED BECAUSE LlSTI IS SET* AND 

GENERATED PaTcH DECK WOULD ALSO BE LISTED BECAUSE LlSTG IS SET., 

IF ANY CONFLICTS EXIST BETWEEN T HE TWO PATCHES INPUTTED* THEY WOULD 



04410000 
04420000 
04430000 



NOT BE LISTED BECAUSE THE OPTION CONFLICTS IS NOT SeT, 
PATCH NUMBERS WOULD NOT 8E PLACED ONTO THE GENERATED OUTPUT 
BECAUSE NONO IS SF , T t 



04440000 
04450000 
04460000 



THE 



GENERATED 
NOT SET. 



DECK WOULD NOT BE ZIPPED BECAUSE THE 



LIKEWISE, 
OPTION ZIP 



044/0000 
04430000 
04490000 



*4 

INPUT 

*PAR 



04500000 
04510000 
04520000 



FROM CARDS AND DISK 



PATCH/MERGE WILL ACCEPT INPUT FROM 0N£, TWO* OR THREE FILESI 
ONE CARD FILE AND TWO DISK FILES. AlL PATCH/MERGE CONTROL CARDS 
INCLUDING! ^__ 



04530000 
04540000 
0455000 



04560000 
045/0000 
04580000 



"*n« 



ji 



12 
13 



18 

19 

20 ' 

21 

22 

23 ' 

24 



27 
28 
29 * 
30 



34 
35 ' 
36 
37 



40 



47 
4S 



52 
53 



56 



m 



\ 2 

3 

4 

I 5 
6 
'/ 

I 8 

9 

10 

I l'l 

12 
13 

I ,14 

i»i 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~" 

3B 

39 



40 
41 
42 
43* 



♦5 
46 
47 
48 
•9 
50 
51 
52 
53 
54 
55 
56 

53_ 



•SKIP J 

1. $9 

2. $. 



INDENT 5 



3* 

4. 

_*_L_ 



$* 
J- 



MUST BE ENTERED FROM A CARD HEADErt FIlE WHQsE NAMt 
IN OTHER WORDS, ALL PATCH/MfRQE AND i CuNrRQL CARDS 
UP TQ BUT NOT InCiUDInG TriE FIRST ",l" CAND MUST BE EfrTFRFD 



IS CARD, 

FROM 



A CARD READER FILE LABELED CARD. 

*3 

FOR EXAMP LE* ASSUMING THAT AT LEAST ONE DISK FILE WITH PATCHES 



IN IT WERE PRESENT ON DISK; 

A CARD READER? 

»S KiP i SING LE INDENT b 



ONE MIGHT ENTLR THE FQLLUWlN- FROM 



♦invalio all 4 

execute patch/merge 
_ data card 
♦indent 5 single 

40 FINAL 

*i 5_P_ATC_H_ES FJJR ALGQLX 



$*C0MPILE ALG8L/DISK WITH ALGOL TC LIBRARY 
S*ALGOL FILE TAPE^SYMBOL/ALGOLSY 

S»FlLE LI NE«LINE PRINT OR BACK Up 

$*OATA CARD 



$- 
STAPE 



SINGLE PRT SEGxLQ 



STAPE SEQXEQ CHECK 
♦SINGLE INDENT 5 
*I__VALJD_4 



*3 
IF 



END. 
THE ABOVE DECK WERE INPUT FROM 



A TOTAL OF FIVE 
PATCHES (INDICATED 
ONE OR BOTH FILES 



A CARD READER* THEN 



BY THE "S» M CARD) MUST BE INCLUDED IN 



ON DISK NAMED "P ATCH/ ALGOLX" OR "P Al CHE-/ aLgOLX" . 

*SKIP 2 PAR 

SINCE THE OPTION FINAL IS SET: 



*SKIP 1 PAR 
CONFLICTS* LISTG* NONO* 



1. THE OPTIONS MERGE* LlSTI* 



NEW DISK* AND ZIP WILL AUTOMATICALLY BE SET BY PATCH/MERGE. 
THEREFORE* PATCH/MERGE WI L l LOOK FOR THE FILES PATCH/AL-OLX 
PATCHES/ALGOLX ON DISK. 



AND 



*SKIP i PAR 
♦SKIP l PAR 



2. THE INPUT WILL BE LlSTEU SINCE LISTI IS SET 



Oabvoooo 

0t»600000 

J_4_610im_i. 

04620000 

04630000 

___l_jlq.£_iq-. 



04650000 

04660000 

Jl_AZJ_Qfla 



04680000 
04690000 
470 0000. 



04710000 

04720000 

JL_7JiflOA_L 



04740000 

04750000 

JL_Jjifl_l_LQ_. 



047/0000 
04780000 

JUkistSbaon. 



04800000 

04810000 

Jl4i2.Qfl.ftfl. 



04830000 

04840000 

.0.4.8 500 00. 

04860000 

04870000 

..flA8Ji0.flfl.fl 



04890000 
04900000 
04^10000 



04920000 

04930000 

_Q_4_940.QA.SL 



04950000 
049C0000 
04970000 



04980000 
04990000 

osooooo o 



05010000 
05020000 
- 03QQ0 Q 



3. THE CONFLICTS (IF 
*SKIP 1 PAR 

4t TH F 



ANY) WILL BE LI-TED* SINCE CONFLICTS IS SET 



05040000 
05050000 
OS-->60QO 'fi 



GENERATED PATCH DECK WILL BE LISTED* SINCE LISTG IS SET. 
*SKIP 1 PAR 

5. THE GENERATED 



05070000 
05080000 
Q5 09QO0 



PATCH 
*SKIP 



DECK WILL 
1 PAR 



BE ZIPPED* SINCE ZIP IS S£T. 



051Q0O00 
05110000 
5 12QQ QQ 



BE PUT IN COLUMNS 68-72 
NONO IS SET, 
'SKIP 1 PAR 



PATCH NUMRERS WILL NDT 



OF THE GENERATED PATCH CARDS* SINCE 



05130000 
05140000 

osibooon 



05160000 
05170000 
05160QQQ 



35 ( 

36 

37 

38 ( 

39 

40 

41 I 

42 

43 

44 ( 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 i 

54 

55 

56* 

57 



• • 






12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



49 
SO 

61 



52 
53 

54 
55 

56 

5?. 



PATCHES/AIGOLX WILL BE 
-USED TN JG£N£RAUM_IiiL 



AND THE 
♦ GUIT 
* 



7. FINALLY* 
CREATED ON D i SK CONTAINING ALL 

smarm Pat ch mx&* 



A NEW FILE NAMED 
THE PATCHES 



OLD FILES PATCH/ALGOLX AND PATCHES/ALGULX WILL BE PURGED." 



05190000 

05*00000 

-Q&aiQOOQ. 



05220000 
05230000 

05240 000 

* 1COOO000 

COMMENT #*##*##*###*#***«##*#***#***#*# *t*tt«»ii*K *»Uu# u#U1t UtU#*U»»##u»tt#U 100 1 0000 

OUTE R BLOCK DECLARATIONS AND OEFjNES 100200 00 



*****<17^***##*###*#ff#####f##*«#*#»*#**#*»»~##«###»##«#*f##«*###«* # #^ 10 0'^ 00~ 



X 

BEGIN 



COMMENT 
PEHNE . 



"real patchmax#column#col#numerh#tii*ei; • 
all defines used in patch/merge are here; 



8ADCARD 
BADDOLATCD 
BA DVGi n 



4#* 

xe» f 

1 9** 



BADVOIDRANGE 

BADVOIDSEQ 

OUPATCH 



EVOLVE 

EXTRACDS 

EXTRA PATS 



= 21*/ 
= 20** 
s -13** 



HOWMANYCDS 
HOWMANYPAT 

MEDI.UJUPAl.CJil 
MISSCDS 
MISSPATS 
A&ZQ1 



s POINTER<TOPLDECK*83)+3*# 

* H** 

* \7* > . 



s-7#* 
-5-^RR rP AT Ch ] . r 1 t >_U,5.JJL*. 



NOOOLASTCD 
NODOLCARD 
-NQDQLPFRCP 



1G#* 
16** 
15** 



« i4#* 

-•i 3** 
- Q** 



NONAME 
NOTINSEQ 

MfiPAIML- 



PATCHNUMBERCPATCH] 
PATNOTINSEQ 
.PlJlLJlAfiDj 



* 2#* 
a-9J* 

* 5** 



QUEST 

REVOLVER 

STOPPER 



= ARR[PATCH],L33« 15J* 
= 12** 

* NAMEC2+HAR0 i» , 



WHATPRQG 

WRONGPRQG 

WHICHONEtWHl 



a 3"U60000000000000" KUR 
s P0lNTER(TOPCDECK,103i*# 

« 98765** 



2#* 



ALPHA 



DUMMY" 

; ■ ■ 

P ATCHIO; 



*-6#* 
*-8** 
» PQlNTERCNAMEt 11 )^HHl> 



FILE CARD(2*10*l50)* 

MASTERFILE DISK SEKI ALC 20» 1000 JC2 * 10 , 1 50 ) , 
PATCHDE CK DISK SERIAL [20» 1000 J C2» 10* 150 ) * 



LINE 16(5*15)* 

SORTLINE DISK SERIAL C2OUQQ0J (2*15*150)* 

PUNCH 0(5*10); 



POINTER P*Pt*Q*Qi; 

BOOLEAN CONFLICTS* ERRORS* LI ST I* L1STG* 

SAvElT* G0TOiT*N0HE ADlNG^COi\*ANaNQ*NQM0REQPCAI : <DS« 



C ARDS0NLY*PUNCH I *PUNCHG*NOM AST* DELETE* NEHFILE3J 
ARRAY IMAGEC0l2,0«16 3 # NAMEC0»43i 
INTEGER ARRAY PEL [01193* 



10040000 
1005 0000 

looeoooo 

10070000 

.iiioe.o_ojo_Q 

10090000 
10100000 

..dniiiiacn. 



101*0000 

10130000 
101 40000 

10150000 

toicoooo 

10 170000 



10180000 

loiyoooo 

-10200000 



10210000 

10220000 

10230X100- 

10240000 

102500QC 

1026Q00C 



10270000 
10260000 
10290.0J1C- 



10300000 
10310000 
1 Q32OQ00 



10330000 
10340000 
10350Q00 



10360000 
103/0000 
10360000 



10390000 
10400000 
1Q41000Q 



1C420000 
10430000 
10440000 



10450000 
10460000 
10470000 



10480000 
10490000 
10500000 



10510000 
10520000 
10530O0Q 



T* 



>r 



2 
3 
4 
5 
6 
7 
6 
9 
10 
11 
12 
U 
141 

> 

'17' 

18 

19 

^0 

21 

22 

23 

24 

25 " 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

«4 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



IN 

LA 

% 



TEGER KARD; 
BEL axit; 



COMMENT ##############*# 99 9X9 9*99* *********#*9*t 9»99#»99»» 

UTILITY PROCEDURES 

999*9***9****9**99 9 99***9 9999999*9*9* 9 9 9* 999*999* 99 9*»9»» 



105 

103 

-ZQO 



40000 
bOQOO 
QiiQQiL 



9999*99*9**999 
999999999*9999 



9200 

200 

;200 



10000 
20000 
30000 



% 
PR 



UCEDURE 
BEGIN 



DATIMEJ 



200 

200 

_2£Q_ 



40000 
50000 
6QQQQ 



INTEGER H,MIN*QJ 20070000 

X 99 #$ 9999 999**99*99 9 99 9*9 99 99999*999**99999* 9 99 99999999999999999 ########20080000 

_ ALPHA PRO CEDURE DATER(OaTE); VALUE DATE; R EAL DATE; 20090000 



BEGIN 

ARRAY ACOHJj 

POINTER SI»Ci; 



201 
201 
201 



00000 
10000 
20000 



aco]i*date; 

SU*P0lNTERCA)+2; I :=PQ INTER( AC 1 3 ) i 
REP LACE „Q11CJ_ BY SUSI FOR '£,»/»; _ 



201 
201 
PQ1 



30000 
40000 



BY 
SI 



SI « SI FOR 
FOR 2; 



c, 



REPLACE DUDI 
REPLACE DI 8Y 
DAIERL=AXlli.._ 
END OF dater; 



...HL?IIM£_1 p 1\L_21M£Q,L- MM*. IT I M E 1 p I V 3 6 JL)-Ml3-6iLL 



20li 
201: 

..20-LilO.O.OO... 



60000 

70000 

L0.1 



201 

202 
_20_2. 



90000 
00000 

isamsL. 



WRITECLINECDBL3* 

<X16» ,, BURR0UGHS 3-5700 PATCH/ME«GE P^QGRaN MaRK 

1M.i3n&QH 



202 

202 
-2.0.2 



20000 
30000 
AQjQ-O-Q 



$ n «#A6* M DAY# »,Q, n , • , *l2*"!"»A2»Xl»Al, w M f "//>* 

TIftE(6),DATERCTlME(5))#l2xHEALCQ!sH MQD 12«0)+Q, 
Q«»MIN MQD lQ»fMIN DIV 10)x64* 



202 

202 

..2£2 



50000 
OQOOO 

zaaQH 



IF H>12 THEN 

noheadingjsfalse; 

FND PE. DA TI VE; 



"P" ElSl "A"); 



202 

202 

-ZOJ. 



aoooo 

*0000 
00000- 



%************* *******9#99»9 9 »*»9**9**99 9*9* * 
PROCEDURE ERROR (NUMBER* PARAMETER); 
._ value number»parameter; 



***9*99** 9*9 ******** 9**9*9 9920'HOOOQ 

20320000 

2033Q0 QQ 



real nubbeR»Rarameter; 

BEGIN 

SWUCH FORMAT ERR> = 



<X21,"I CANNOT FIND YqUR $. CARD xxxxxxx 
(X21>"TELL ME HQrt MANY PATCHES YUU HAVE 
(X21 » *VL LL ME THE NAME OF YQUR PROGRAM _x 



203 
203 

_2JL.3 



40000 
50000 
60J10JL 



xxxxxxxxxxxxx"*X*)« %0 
xxxxxxxxxxxxx"> X* ) f %\ 
XXXXXXXXXXKXX»>X»)» %2 



203 

203 
203 



70000 

aoooo 

90000 



<X2l»"I NEED A DOLLAR CARD AT THIS (-U1NT xxxxxxxxxxxx", x* ) * it 3 
(X2l»"THIS CARD SHOULD NOT BE HERE xxxxxxxxxxxxxxxxxx'SXO* %U 
J X21»"I H AVE TO KNOW THE PATCH (NUMBER xxxxxxxxxxxxxxx % X* ) » %5 



(X21# 

(X21* 

XX2i» 



"YOU DONT 
"TELL ME H 
"PATCH #"I 



SAY WHAT PROGR 
OW MANY CARDS 
3" IS FOR THE 



AM PATCH #"13" IS FOR xxxxxx"),»6 
ARE IN THIS PATCH xxxxxx«,x*)# %7 
WRONG PROGRAM xxxxxxxxxxxxxxw^xb 



204 
204 



ooooo 

10000 
2 0000.. 



204 

204 

_2M 



30000 
40000 
3000 



CX21* 
(X21» 
(X21, 



"THIS CARD 
"THERE ARE 
"THERE ARE 



is not in sequence in patch #"U" xxxx 

H I3 M MISSING CAHUS IN ThIS PATCH xxxxx 
"13" EXTRA CARDS In THIS PATCH xxxxxxx 



XXX" 
X"), 



)>%9 
%10 
Xll 



204 
204 
204 



60000 
70000 
80000 



CX21> M PATCH # M I3" IS OUT OF SEQUENCE xxxxxxxxxxxxxxxxxxxx") ,*12 20*90000 
CX2WV0U ARE ALLOWED ONLY ONE PATCH. I" 13" xxxxxxxx*******' }#X13 20500000 
(X2I*"Y0U FORGOT THE i* CARDS xxx^ X xxxxxxxxxxxxxx)<xxx H ,X«^ %1H 20510000 



(X21*"PLEASE PUT AT LEAST ONE CARD IN PATCH #"13" xxxxxxx" )* % 15 20520000 

(X21#I3» M MISSING PATCHES xxxxfcxxxxxxxxxxxxxxxxxxxxxx" ) , %\6 20^30000 

(X21» I3; H MORE PATCHES THAN YOU S A ID THERE xOULp BE x»)> %i7 20540Q0 Q 

(X21*"THIS$^ CARD IS OUT OF PLACE xxxxxxxxxxxxxxxxxx", X* ) » X18 20550000 

CX21* M THIS KIND OF VOID CARD IS NOT ALLOWED xxxxxxxxx", X* ) » X19 20560000 

CX21*"THE FOLLOWING VOID RANGE MUST hAVE 8 QlGITS xxx",x*j> X20 2Q570Q00 



J0 



• • 



9 
10 
11 
12 
13 
14 
16 






16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 



27 
28 
29 
30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 



41 
«2 



• 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



(X21» M CHECK THE VOID RANGE' IT I S> INCORRECT xxxxxxxxx%X*J; 
FORMAT F'LAGC"xxxxxxxxxxxxxxx*xxxx »',X47, , 'xxxxxxxxxxxxxx' , # 

"x xx x xxxx lRR0R"»I3)> 



*21 



LABEL E; 

NUMERRl»NUMERR+i; 

IF 

IF 



NOT CIST I AND NOhEAOlNG THEN UAllME; 
NUMBER LSS e THEN hR 1 TE ( Li NE t UBL J ) ELSE 
IF PARAMETER LSS THF.N 

BEGIN 

WRlTE(LINE#10#IMAGEtKARD**3); 
PARAMETER »«ABS( PARAMETER); 



20bb0000 
20^90000 

-ZSltQSWSL. 
20610000 
20620000 

-2:0630000... 



20640000 
206b0000 
iOAAOOjOO- 



end; 

NUMBERlsABSCNUMBER); 
WRI TE CH N ECNQ]*FLAG#MlMKRR)* 



20670000 

20660000 

-iOAiflOCQ. 



WR I TE(LINEC0BL1# ERR CNUM8ER 3* PARAMETER)! 
WRITE(LINE); 
_EBfiQB3l«IB.U£J 



20^00000 
20710000 

-2jiL2.Qaoa. 

20730000 
20740000 
-.2-OZii.QOJlfl... 



IF NUMBER LSS 5 THEN GO AXIT 20760000 

END ERROR PROCEDURE) 207/0000 

PROCEDURE MASTHEADCN); VALUE Hi INTEGER N; 20790000 
BEGIN 20800000 
SM11C ti-EDRM A T F 1.5.C X 1 » * INPUT !LLi , Ppainp oo 



CXIOf" GENERATLU OUTPUT " ) * 
CX10," CONFLICTS "), 

("* ****•** ** "tX^j"**^** * *************" j 

w ****** ********************************** ft, 

*********************** ti/j; 



WRlTE(LlNEtNO],FC\]); 
HRITE(LINECDBL3'F[3J >; 

NPMASTls FALSE 

of masthead; 



20820000 
20630000 
..-2-GJJLQXmQ-. 
206SQ000 
20860000 
20fi7iUUU- 
20880000 
20890000 

J2jnsiiflooo_ 



END ur MASiHtAUi 20910000 

> »***#**.**#****#* **#**»##*##»##**#*« ***«**»***####«#«t***#*#*#»#|i##« # #«» # 2 9iioooo 

_PR_"_CE.DURE GETDELETE; 2Q9 30000 

BEGIN ~~ "'"20 9 40000 

INTEGER i; LABEL EGRESS; 20930000 

2Q9JUZSUISL 



FOR I :=0 STEP 1 UNTIL 19 DO 

BEGIN 

SCA N Q t Q 1 FOR C OLUMN 8C0LUMN UNTIL GE Q Q/ 

ITTOLUMN LEQ 0" THEN GO EGRESS> 

SCAN Q1IQ FOR COLUMN fCULUMN WHILE GEQ Q> 

OELCl3l"INTEGER(0»OELTACfl#411)); 



20970000 
20960000 
20990000 



deletei»true; 



21000000 
21010000 
21020000 



end; 

EGRESSI 



21O30O00 
21040000 
21050000 



END GETDELETE; 21060000 

PR OCEDURE SETOPTIONS; 2 l080Q00 



BEGIN 
X 

INIT-i 



INTEGER COL! LABEL INIT; 



cDLUMNjseo; 

DO BEGIN 

SCAN 0>Q1 FOR COLLMNtCULUMN UNTIL In ALPHA; 



21090000 
21100000 
21110000 



SCAN QUO FOR COLUMNICOLUMN WHILE IN 
CASE (IF COL»*DELTACQ,ai) ,GTR 9 THEN 
BEGIN 



21120000 
21130000 
21140000 



alpha; 

ELSE CQL) 



OF 



21130000 
21160000 
21170000 



• 



< 



1 

2 
3 
4 
5 
6 
7 
8 
9 

10 

11 I 

12 

13 

14 I 

15 

16 

,7 I 

18 

19 

20 ( 

21 

22 

23 i 

24 

25 

26 < 

27 

28 

29 ( 

30 

31 

32 * 

33 

34 

35 { 

36 

37 

38 % 

39 

40 

4, i 

42 

43 

44 I 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57, 



m 



> 

* 

J 

IF""REAUCQ#3)* m ZIP" THEN GOTQlTJ*THUE ELSE 

IF REAlCQ#3)s M NErt" THEK SAVE I T * »TRUU 
IF R EAL(Q*4)=»CARU" THEN C AHDSUNL Y l sTRuE ELSE 



JkZ. 



S3 



JL4_ 



21180000 
21190000 

21210000 
21220000 
?l23Qnnn 



IF" REAL(Q*4)»»LlST" THEN LIST I I sUSTG I "COftFLlCTSl sTKUE ELSE 21240000 
IF REALte^^'NUNO" THEN ANONU ; *TKUE> 21250000 

IF REAL(Q*5) = "MERGE" THEN -C ARQSUnlY : «F ALSb El T Sr *5 21260000 



IF REAL(Q#5)a"LiaTl" THEN LISTlt»TKUE ELSE 

IF REAI(Q*5)» H LISTG» THEN LISTg:*TRUE ELSE 
I F REALCQ.5)»»F1NAL" THEN GOTO T T t sSAVE I T 1 sL ISTT l ■ 



L 1 5TG » "CONFLICTS I »ANONQ is 
NOTCCARDSUNLYJsKALSE)/ 
PUNC H I» »IRub ELSE »£_ 



21270000 
21260000 
21290Q00 



...If REAL(Q»6)="PUNCHl" thfn 

IF REALCQ#6)* W PUNCH6» 1 THEN P.UNCHG* •TRUE ELSE 
IF REAL(Q,6>*"DLLETE M THEN GETUELETE; 
IF R ELA.LXS.A 7) * "NEW FILE " THEN NEWF1LFS I s TRUFj %7 

' %b 

IF REALCQ»7)*"C0NFlIC" THEN CONFLlC'TSi«THUEi *9 

. tain 



21300000 

21310000 

-2132Q0QQ 



21330000 

21340000 

_2l3SMQJL 



END UNTIL COLUMN 
IF LISTI THEN 

_ __B£&I_N. 



leg o; 



213G0000 

21370000 

-ZUflflQOO- 



IF NOHEADING THEN DATIMEJ 
IF NOMAST THEN MASTHEAD(O); 
WRlTE( LlNE>lC>IMA6ECKARD/»]) __ 

end; 
readccard,10#imageckaro,*])j 

IF REAL<0 H»P0INTER(IMAGE[KA8D»*J)>2)* M $P W THEN GO iHlli 



21390000 

2J400000 

-2 H 1Q000 



21420000 
21*30000 

21450000 
21460000 
21M1SIQML. 



21480000 
214V000C 



NOMOREOPCARDSlaTRUE* 

END OF SETOPTIONS; fc ,,, wwww 

%#####*##*#* *«#$*«*»**»»*«» ####*##$ »»#»# it #iiittt*»»#*g»»##g»t»t»»t fit #u»t»*?^uQ()ao 
PROCEDURE GETDOLPEKCD; 21510000 

BEGIN 21520000 

_lMLfi£B_£flLi , 21530000 



% 

IF 01 NEQ 

C0Ll»78; 



'*." THEN ERRURCNODOLPERCO*-! >i 



DO 



BEGIN 
SCAN Q»Q1 
SCAN Qi:0 



21540000 
21550000 
21560QQJ). 



FOR 
FOR 



COL*COL 
COLVCOL 



UNTIL 
WHILE 



IN 
IN 



alpha; 
alpha; 



IF COL LEO THEN ERRQHC NGNAME * ' ID I 

END UNTIL REAL(Q#3)«"F0R M AND DEL r A( Q> 1 )* 3/ 

Pl»sPOINTERClMAGE[KARDj*])i ______ 

SCAN PIP1 FOR C0LUMNI78-C0L WHILE LSS o; 
IF COLUMN LEO THEN ERRQRSHOWMANYPA U '1 ) ; 

SCAN PltP FOR COLUMN ICOLUMN UNTIL LSS Qi 

IF CpATCHmAX»«InTEGER(P#0ELTA<P,P1) J)lSS THEN ERRQKf HUWMANYPAT , -1 ) ; 
SCAN PlJQl FOR COLUMMCOL UNTIL IN ALPHA; 
SCAN P»P1 FOR COLUMNICOLUMN 'WHILE in alpha; 



21570000 

21580000 
21590000 

21600000 
21610000 
21620Q0Q 



21630000 
21640000 
21650000 



IF COLUMN LEQ THEN ERRORC NQNAME,-1 ) ; 

REPLACE POINTERCNAME) BY M " FOR 1 WORDS; 

REPLACE POINTSR CNAME) BY "0?*P1 F OR MI n(OELTAC P 1;P) ,7)i 



21660000 

21680000 
21690000 



PATCHID»»REAL(P1»MINCPATCHID««UELTA(PX*P)#6)J & P AT CHIDC41 1 5 I 6 3 ; 
IF (LISTI OR LlSTG OR CONFLICTS) AND NOHEADING THEN DATIME; 
IF LISTI THEN 



2J700000 
21710000 



BEGIN 

IF NOMAST THEN MASTHEAD(O); 

WRITE(LlNF,lQ.lMAfiF.K_Rn.+11 



21730000 

21740000 

__l_J_Q____ 



21760000 
21770000 
21 76 QQQ0, 



!< 



54 
55 
56 
57 



• • 



ft 

'2 

3 
4 

5 
6 
7 

fll 
9 
10 
11 
12 
13 
14 
16 
16 
17 
IB 
19 
20 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31™ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
50 
61 
52 
53 
54 
55 
56 



ENU 



end; 
getdolperco; 



COMMENT*## ##########*##### *#****$## *«**#t*#t$**»* »»##*»#»##*##**» »*#*#'# 

PROCESS PROCEDURE 
MIMA** *****#*»** ********####**$*****«* ##» 1* *JJULUJ1M1M*M1* 1*1*A*1 * 
% 

PROCEDURE process; 

_B.EJ3.LN 



21?9000Q 
21800000 

.ia-J..a_io_u.G 



ARRAY SEQ#REC0RD»END0FFlLEt0«PATCHMAX+3]* 

LASTCONTROLCAROlMAQLCOlll J# TOP t IPATCHMAX + 3* * 11 3 * 
- - ARRCQ IPATCHMAX+31J 



#30010000 
30020000 

iJJ.0.100_0_Q.. 
300-10000 
30050000 

-3J.O_5..0.Q..Q.Q_ 



real lastcontrolcard,patchrecor0»t-lpdog,topcu6seq#vdlostu#~ 
voidingseq^enosoffile; 



C0^HZNJ»»»it»it*S»*MU»n»»*««»M*Utt9*tt»tiM»»»4**»**»*Ua*»***S**»n»*$*»*$$ 

INPUTPHASE PROCEDURE! 

JUL*.* M M * * L*J_*.tJL3.1*i*9.$*tt**t*t**t** ***t***u t ill U JUAAJUUUUUkAM tM ***** * M 



PROCEDURE iNPUTPhASE; 

BEALN. 



LABEL TH ATSALL* EGRESS* HtADCC,NE XTUECK#NtxfCARD, PASS* EOF, RE AOCO 
POINTER INPC INTER* ST ARPOlNTER»P*Pi; 
BOOLEAN FIRSTCARn; 



REAL PATCH*RECORl)NU#KLC'SEfcUENcE*SUE*T#CHAR#LASTPATCHNO* 
FILE NEWDISK DISK SERIAL [ 20 M 000 J "HATCHES »/ "MCP" ( 1, 10 > 1 50, SAVE 99), 
CLL Q DISK DISK SERIAL »P A T C HES "/" MCP" ( 2, } >ibO )> 



30070000 

3QG800Q0 

30100000 
30110000 

-.iUJJiiiaaaQ 

#40010000 
40020000 

/AQ01QQ0Q 
40040000 
40050000 

.4.0.0 6-0.MQ. 

;4oo7oooo 

40060000 
-..M0ie.0_QjCL. 



PAT CHFILE "DISK SERIAL ~[20 I 1000 J " P A T CH*V"MCP"'<2 ,10, 150,S AV~E 60 )'] 
NEWPATCHES DISK SERIAL "PATCH "/"MCP" C 2* 10' 150) i 
JWll£ii..F.Ii-£...KARDSWI»DLDDISK* NEHpATCHES>CARD i 



%»********$** Ut»»«»»$ ft MMgJtU if u»»a*»» 4 tg»-» A »pv»»nu»1t« 9 »*$»»1t#*»»»»»$*»*»tf 
PROCEDURE FLUSH; FORWARD; 

%»**tt»u*n»t» n«n$it#»Mittviuu4tt«»t^»»9«itiittiinit»ut^»»iiu»«»t«n.$t*»itttitt* ** 
"PTTDcedURE GETP ATCHNOCK A«D )> VauUE K*K D; INTEGER *aRd* FORWARD; 
%****t***«tt**t* ****$***it***tg**tt*****t*t**t* »*#»#$*#*#**$*#*#§#$#*$* 
BOOLEA_N PROCEDURE DELET LIN 

BEGIN INTEGER 

LABEL XIT; 



40100000 
40110000 

.. 4_Ui.O QUO. 
40121000 
40130000 

_4Cl 1.4.0 0.0. <3. 



»40l50000 
40160000 

#4ol70000 



I* POINTER KtY; 



KEY»»P0INTER(IMAGECKARD,*]); 
FOR I S*0 STEP 1 WHILE 1 LSS 20 

HE Li U. 

IF TsDEUCI) THEN 



40180000 
#40190000 
402000CO 
4021066b 
40220000 
...4_0_2.3O.0M. 



AND 0ELE1- NEW DO 



40240000 
40250000 
40260000 



BEGIN 
JF LISTI 



THEN 



BEGIN 

REPLACE KEY+80 BY 



40270000 
40280000 
40290000 



WHICHONELKAHp. FOR 1* 



WRITE(L1NE[DBLJ); 



FOR 2*PTN[KARD_ FOR 3 DIGITS, 
OELtTED *## "; 



40300000 
40310000 
4Q320Q00 



WRlTE(Ll(jE[DBL.*l3#IMAGEtKARD'*3); 

end; 
flush; 



40330000 
40340000 
4Q350QQ Q 



getpatchnockard)* 
deleteiti»true; 

GO TO XIT 



40360000 
40370000 
40380000 



XIT t 



end; 



END 



40390000 
40400000 
4Q410Q00 

404 20000" 

40430000 

40440000 



1< 



6 

7 
8 
9 
10 
11 
12 
13 



18 
19 

20 I 
21 
22 
23 ( 
24 
26 
26 ( 



29 ' 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 i 

39 

40 

41 < 

42 

43 



47 
48 
49 
50 
51 
52 
53 
54 
55 
56 ' 



m 



_ 

3 
4 
5 
6 
/ 
8 
9 
10 
11 

''•. 

IB 
17 
18 
19 

,21 



E 
_ 

o 
Q 



22 
23 
24 
25 
26 
27 
2B 
29 
30 



31 
32 
33 
34 

35 
36 
37 ~ 

as 

09 



40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
JO 
61 
52 
53 
54 
55 
56 
57 



END deleteit; 404b0000 

P^OJXmiBJLAtiLLK^HlSli Afl4 IQQQQ 

BEGIN LABEL XITJ 40480000 

REAL T; 40490000 

__1.0__.0J1Q 



SCAN PilNPOINTER FOR C0lUmnj/2 UNTIL IN ALPnA. 

IF COLUMN LEQ THEN GU TO XlT* 

SCAN PU P FOR cql_mn:culumn wHIlE In aLPHa. __ 



IF COLUMN LEQ THEN GO TO XlTi 
IF (T**DELTACP*Pl))=4 OR T*5 ThEN 




40510000 

4051.0000 
4Q 53000Q 



IF REAL(P#4)- M VCID M THEN ELSE 
IF REAL(P>5)-"VGIL)T» THEN EL^E GO xUi 

ENO __ 

else go xit; 

scan pspl for culumn:column until geq 0* 

if column le__o_thej____o_to___it; 

SCAN 
IF 



40540000 
40550000 
4 0560000 



IF 



PisP for column. culumn until lss 0; 

COLUMN LSS THEN ERRORCBADVUlD* 1 )i 
QELTA(P.P I) NEB a THEN 



40570000 
40500000 
4Q590Q0Q 

40600000 
40610000 
4Q6a000Q 



IF 



BEGIN 

ERR0R(BADV0IDSEQ,U; 
__Q._T.Q___LL 

end; 
integer(p*8) leu integer (pc) inter c imaue ckahd* 

E R R OJLLBAQ 1 Q JJ_ R AML i± U 



])/0) THEN 



x n « 



IF REAL(lNP0lNTER,2)-*« $" THEN ERRORC BAD VOI 0' 1 ) i 
END CHEC KVOIO; 



40630000 
40640000 

..____i___.._Q__. 
40660000 
40670000 
4Q.-iLQ.aaQ 
406V0000 
40^00000 

A0.710Q.Q.Q 
40720000 
40730000 

A_L7__J_jQi_a 



procedure getpatChnqckahd.> value kakd; Integer kahd; 4q76oooc 

BEGJ_N 407 7000 C 

40780000 
40/90000 

_ _ _4 080 go 00 



LABEL XIT»NUTS#QWTJ 
POINTER R.Ri; 



IF PTNIKARD] s STOPPER THEN 
RllsPOlNTERdMAGECKARD* *1 )> 
IF REAL(R1»2) NEG "**" THEN 



GO XIT/ 



OWT» 



BEGIN 

er»or(nopatno#1); 



40810000 
4C820000 
40830000 



PTNCKARD] SsSTOPPER; 
GO XIT 

end; 



40840000 
40850000 
408600 0Q 



SCAN RJR1 FOR COLJ80 
IF COL LEQ THEN 
BEGIN 



WHILE LSS "0 M ; 



40870000 

40880000 

■ 4Q99QQ QC 



NUTSJ 



40900000 
40910000 
40920QQQ 



ERR0RCN0PATNC*1); 

GU OWT 



END* 
SCAN RllR FOR COHCOL UNTIL 
IF COL LEQ Ttig.i GQ MtJTSi 



40930000 
40940000 
4Q95000Q- 



LSS M 0"; 



XIT« 



PTNCKARD] I" INTEGER (R» DEL Ta(K»R_)>; 
ENO GETPATCHNOJ 



4Q960000 

409/0000 

,4 096 0000 



409^0000 
41000000 
410 10000 



PROCEDURE HANDLEENDOFFILE) 41030000 

a£_U-fci __ , __ , 4iQ4Qonn 



li 



a 1 

9 

10 

11 ( 

12 
13 



18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 



42 

43 

44 { 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 { 

54 

55 

56 1 

57 



• • 



i 1 

2 
3 
4 
5 

6 

/ 

a' 

9 
10 
11 
12 
13 
14 
IB 



• 

• 



16 

17 

18 

19* 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



o 



• 



31 

32 

33 

34 

35 

36 

37~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

W 

49 

SO 

51 

52 

53 

54 

55 

56 



ptnckardji«stopper; 

if (ptn[01 + ptn[l] + ptnc21)»c3x(stuppb;s)) thln 

.._ _JL_I_L 



CHARl.o; % SO PROPER EXIT WILL BE MADE AT THATSALL 

GO TO ClF PATCHMAX * THEN EGRESS ELSE ThATSALL); 

.ENfiJL 



41US00OO 

41060000 

jUlUiiDJJIL 



IF PTNCQJ + PTNCl]»2xST0PPER THEN C AROSUNL V : = r*UE ; 
END OF HANDLEENDQFFILEJ 



4iOdOooo 

41090000 
JLU__mQ. 



PROCEDURE ALIGN; 
BEGIN 



FOR KARDIbO STEP 1 UNTIL 2 UU 
WHILE PTNtKAROJ LE& LASTPATCHNO 00 

__J§_ 



41110000 

41120000 

*jLi_ii_i_._ 

41140000 
41150000 

kxiASiann.. 



IF LISTI THEN 

BEGIN 
. . REPLA CE PQINT E R(1HAQE[KAR0H03) BY " », 



WHICHQNECKAROJ FOR \» 

" " FOR 2/ 

P TN[KaHQ3 FJJtj 3 DIGITS* 



" % H DISCARDED ### '•; 
WRITE(LINEC0BL3)i 
WRlTE(LI NECDBL3,13>IMAGE[KARD. »]) _ 

end; 

flush; 

QITPA.LCH.NillKAfiil.iJ 

end; - - - - ■ - ~ 



41170000 
41160000 

4_i.lyQ.aQ_o 

41200000 
41210000 
4.1 2 2 00 OQ 
41230000 
41240000 
J L2J3Q000 
41260000 

41270000 
41290000 



KARDJ*IF PTNCl] LEG PTNC03 THEN 1 ELSE q; 
_KARD.J«ir PTNE23 L EO PTNCKARnJ ThEN 2 ELSF KAHHi 

END align; 

%###*#### ###### $********** t»**»*t*t it tU$**t*»4*»4*tt1Ht»tt$g ####**### 

procedure f lush; __ 



41290000 
41300000 

._aJXQ-o.QiL 

41320000 

41330000 

JL___L_ 



BEGIN 
POINTER PTR; 
.LABEL QWT> EOF; 



4l3b0000 

###41360000 

4137 0000 



PTRlsPOlNTERClMAGECKARD,*]); 
WHILE T RUE DO 



BEGIN 

REA0(KaRD5WCKARD]*10*1MAGECKaRD**J ) [EOF 3; 

If REALCPTR* 2)» M Stf w T HEN GO OUT; 



41360000 
41390000 

_M__L 

41410000 
41420000 

4jJjO£C;_Q_ 



IF LISTI THEN WR \\ £(L INE* 1 3' IV AG£C K aRO, * ] ) ; 

end; 
while false do 



41440000 
41450000 
41460000 



EOFI 
QWTJ 



414^0000 
41480000 
414V000Q 



handleendoffilej 



END FLUSH; ~ - 
PROCEDURE INITIALIZE; 



41500000 
41510000 
41520000 



BEGIN 

LABEL EOC#XIT; 

ARRAY TEMPC0»9Ji 



41530000 
###41540000 
41550000 



INTEGER INDEX; 

IF CARDSQNLY THEN 



41560000 
41570000 
41560000 



BEGIN 
PTN[03l«PTNCl]*»ST0PPERi 

GO XI I 



41590000 
41600000 
41610000 



41620000 
41630000 
41640000 



in* 



i-C 



12 
13 



21 
22 



29 ' 
30 



34 
35 
36 
37 



43 
44 < 
45 



53 



n 



« 



r 



h 



14| 
). 
16; 
17 
18 
19 
20 
21 
22 
23 
*4 

t" 

c- 



30 
31 

32 
33 



40 
41 
42 
43 
44 
45 
46 
47 
♦8 



49 
SO 
51 
52 



53 
54 
55 

56 



end; 
for index:=0*1 

BEGIN 



DC 



EOCJ 



5EARCH(KARDSW[ INDEX J # TEMP [*J)j 
IF TEMf»C03 LEG THEN 



PTN[lNDEX]l=STOPPER fc. L S E 
BEGIN 
READ-(KARD&»[ INDFX]#10»lMAGECINQE/<* *J ) 



41650000 
41660000 
U\b? Q Q.0 
41680000 
41690000 
AlZ.00000 



CE0c3; 



GETPATCHNO(INDEX) 

end; 



41710000 

41720000 
41730000 



end; 



XI T x 



41740000 

41750000 

JLL?. 600 C U L 



end initialize; 

%_ _ _ _ 

comment ***#*##***#*##*######### »9#*t##* **#*«# *v»f»*g#a#»#**ffirf*i#$$*l 

INPUTPhASE PROCEDURE DRIVER 

# # .• # # * * **1L9M±tlMJULMllMiJUL&lJLtAJLtl*JLtJtll $*** **********• ***** * MM Ml MM 
% 

FILL NEWDI3K WITH «#NAMEtQJ> 
FILL OLDDISK WITH »,NAM E[Q./ 

FILL NEWPATCHE3 W HH *»NaME-03J 
FILL PATCHFRE WiTH ** NAMECOj; 
INPfl-lNJE R I »PH T NT FR f TMA fi E _ KARl. _ « 3 . ; 

REC5=i; 

WRITE C M AS TERFlLE»*#RECORDNulsi); 
„ PATCH:»LASTCCNTR DLCA RU: = LAbTpATCHMQ: = -l_j _ __ 

INITIALIZE; 



READCCt 



RE»D( CARD,lC,IMAGE.KARD,*3U£nF3; 

IF L I S T I AND CHAR**REAL(INP(JINTER + 1M )N&Q •'#" 



WRlTE(LINL,l0,lMAGE[KAKD,*3)/ 
REC »*REC+i; 



% * CARDS 



THEN 
LISTED 



LATER 



IF REAL(INP0INTER»1) NEQ "4" THEN 

ERR0R(NCDQLCARD,1); 
. I.f_ £ HAB« w g" THEN 

BEGIN 

ERRORCBADDOLATCD'l H 

GO T O READCC 



IF 



end; 

CHARs"*" 
BEGIN 



THEN 



COMMENT CONTROL CARP IMAGE/' 



REPLACE INPOINTER BY v-UEST/ 
IF LASTCONTROLCARDiO THEN 
BEGIN 



L*STCONTROLCARD IMAGE 193 l«LASTCOMROUCARD + i; 
WRITECPATCHDECK* 10* LASTCQNT KOLCARDIMAGEC * 3 H 
IF LISTG THEN 



W RITEC SORT LINE* 12* LAS TCONT KQLC ARD 1 MAGEC *3 ); 

end; 

lastcdntrulcard:=lastcuntrqlcard*i; 



REPLACE POINTERCLASTCONTRQLCARDIMAGEC*}) BY 

INPOINTER FOR 10 WORDS; 
GS TO READCC _____^__ 



READCDJ 



end; 



WRITE(PATCH0ECKmO»LASTCONTKQLCARDjmaGE[*3 ); 



IF LISTG THEN 

WRlTE(S0RTLlNE/l2*LA5TC0NTR0LCAwDIMAUEt*J); 

patchrecqrbmlastcbntrqlcaru^i; ... 



41?7000C 
417B0000 

-iaonoooa.. 

«50010000 
50020000 

150-0-3 QOCUL. 
50040000 
50050000 

5J106_QDQC_ 

500/0000 
50071000 

-SooaGooo-. 



50090000 

50100000 

.5O1J0Q.QQ. 

501200OC 
50130000 
So Uooon 



50150000 

50160000 

-5.Q170aQ.Q_ 



50180000 

50190000 

.ACL2QO„OJ3jQ. 



50210000 
50220000 
50 2300 00 
50240000 
50250000 
50260000 



50270000 
502fa0000 
5Q29QQ £C„ 



50300000 
50310000 
50320000 



50330000 
50340000 
50350000 



50360000 
50370000 
50380000 



50390000 
50400000 
50410000 



50*20000 
50430000 
5Q44C00Q 



it 



• • 



IF 



n 

2 
3 



I 
I 8 

:•. 

10 

I 11 

12 
13 
14 
15 

l« 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



..ej_s_j.i. 



CHAR="-" TH fc.N 
BEGIN 



COMMENT DOLLAR CARlS, t T, AL/ 



REAO<CARD#lC»IHAGECKAhO»*J) tEDFJ/ 

REC»»REC+i; 

IF CHARlaRFAl f \ MPn I NT jJLt 2 )»M t« ThEM fin Tn ..FXTHFr* ; 

IF LlSTl THEN WRI TE ( LI NE> 1 0* I KAGE t MRD> * ] ) ; 

IF CHARs"**" UR CHAR="S-" THEN EkRLRC BAUCaRD* 1 >/ 

WRITE (PATCHLECKjIOjIMmGEIKARD ^J 5J ^ __ 



5045000C 

50460000 

-S-QAZIlQJia 

so^eooo'o 

50490000 

..5JL5aQ.0Q.CL 



IF LISTG THEN 

HR1TE(S0RTLINE#12» IMAGE CKAHO»* 3)1 
P*TCHRFCORDi»PATCHRrCQHD+_J ._ 



PASS 



_NJ.X_1QE.CKJ. 



GO TO 

end; 

Jf. L ASTCQNTROLCARD LSS Th.N ERRuR CM^ULASTCU.lU 

IF CHAR»"#» THEN 
BEGIN 



getpatchnockard)- 
align; 

IN PQINTrR»»POlNT£R( IrtAGF.KARn,*.); 
5TARPQlNTERlsp0lNTERUMAGE[KARD,9j-. 

firstcardjstrue; 

■■If-tA-LTPATCHNQ GTR T J « P T NjLAA-_i._l_.Li_lJ_ 



ERROK(PAlNOriNSE«»T)i ^PaTCH QuT UF SEQ 

REPLACE POInTEHUmAGEUARDMOI) BY » « FOR ?. *URDS; 
BJLP_LAC£_fJlI_iIFJBL ( I M A G j XAA&LlUI j 1 ±1 ^Y ajj I CmGim EL KARp j FiJ.H. 

" " FOR 2*PTN[KAR03 FOR 3 DIGITS; 
IF DELETE THEN IF DELETElT THEM GQ TO NEXTDECKJ 

-IE-LIST J- THF.N 

BEGIN 

WRlTECLlNECOtbL,); HR ITECL INECUBL J ) J 
WRlTE(LlNE[iMUJ*l-!«IrtAdE[KAR O-*]); 

end; 
if lastpatchn0*lastpatchn0»*t then xdup. 

ERROR. PJPATCHjT); 



50510000 
50520000 
50530 00C 

50540000 
50550000 

50 5 7 0000 
50560000 

5i3bVOQ.Oj2. 

50600000 
50610000 

5n62Qnnn 

50630000 
5Q6400QO 

....... 5 J165_Q_Q„Q.0.. 

50660000 
50670000 

5_Q6JiQ.aQjl 

506*0000 
50700000 



50720000 
5q?3qoOQ 
-50 7AO.OOQ. 
50750000 
50^60000 

-5-Q'7 00_g_a_ 



PATCH # 



cOLUMN^do; 



ph = inpcinter; 

DO BEGIN 

S C A N p:Pl FOR CQLUMNiCQLUM N u M I L 



IN alpha; 



IF 



SCAN PUP FOR COLUMN ICOLUMN' WHILE IN ALPHA; 

IF COLUMN LEO THEN ERROR (WhATPROGj- 1 ); 

E ND UNTIL C REALCP*3)*"F0R " A.\U DELTACP,P1 )s3) QR 

COLUMN LE^ 0; ~~ " " ~ 

COLUMN LEQ TiiEN 
BEGIN 



50780000 
50790000 
-J5J_l__0fl.fl.Q_ 
50810000 
50820000 
50830000 



50840000 
50850000 
50860000 



£RROR(HHAtPROG*T); 

go to nextcahu 
end; 



50870000 
5088000C 
5069000Q 



"scan p«p1 for c0lumn:culumn ' until in alpha; 
scan pup for co_umn»culumn while In alpha; 
if coluhn-.0 then 



50900000 

50910000 
5Q920Q00 



50930000 
50940000 
50950000 



iRRQRCWHATPROG-T.J 50960000 

IF PATCHID NEQ REALCP#MI N( T» »DELTAC P # pl ) ,6 ) ) & TUl_5i6j 50970000 
THEN ERRBR(WRONGPHQQ,LASTPATCHNO); 50960000 



SCAN P5P1 FOR COLUMN'CULUMN UNTIL s " "> 
SCAN PllP FOR COLUMNJCULUMN rtHlLE <"0"> 
SCAN PS PI FOR CQLUMN»CUlUMN Ur.TlL <"Q"; 



if column leq then ekror (howman ycds, 1jj 
patch»»patch+u 

SUE»«INTEGERCP1>DELTACP1/P)); 



50985000 

50990000 
51000000 



51010000 
51020000 
51030000 



T* 



8 
9 
10 
11 



NEXTCARD* 



THAJSALLJ 



PATCHNUMBtRrHAfCHj: =L^^TPATCHl\G; 
MEf)IUM[PATCHJ I » K A H U ; 
.If NOT ERR ORS AND 3AVL11 ] HEN 



BEGIN 

WRITE(NEWDlSK,lO,lMAGElKAR|j,*] )' 
IF KEHFILFS AND KAHD = 2 THFN 



wbitecpatcmfile* 10, im age ck aru, *] ) j 
end; 

JLL-U STJ ThFN rtR I TECM .M E LUBLJji 



51040000 
510^0000 

.5jJL&.0_Q.Q.Q... 

51061000 

510/0000 

-51 07 1 00 



510/2000 
510/3000 
Sl OfcQQ OO. 



READCKARDSW[KARD]»10* IMAGE CKAR D, * 3)[ EOF ] ; 
-IF fRFALfSTftRFOTNTER+fH 1a w *")-0a 



(REALCINPUINTER, <>) = "»:") ThE.n X pAyCh/MERGE COMMENT CARD 

BEGIN 
LE-LLST! THFN rtRI Lfc C 1. 1 HE i 12, I MAGE r K A R O, * ] ) i 

IF NOT ERRORS AND SAVEIT THEN 
BEGIN 

... JM.RXI£IJJ£ii.OLSK^.lXUiJlA G E I K-AitOx.* J 3 i 



51090000 
51100000 
511 1 0000 



£iV.0l. 



IF NEWFUE3 AND *ARO = 2 THEN 
WRlTECPATCHFILEf 10* IM A G£ LK ARU, * 3 ) ; 



b5ll20000 
5U30000 
51 1 tiQQOO 
51142000 
51143000 

-5-U-50000 

51151000 
5U52000 

5-1.1.5.3000 



IF PUNCHI THEN WRITEC PUNCH, 10 , iMAGEt KARD, *]) ; 
JiILXQ NFJLLCAROJ . 



end; 

REC»aREC+i; 
-IF- RJEJlLLI NP 1 NLLE.^_g-lf^'_i:'.-.XHE-^ QhU&LaULi. 



IF CHARjsREALClNPQl 

BEGIN 
.IJL CHARt«REAL (lNP Ol 



NTER,1)="$» THEN 
NTER +1,1)="9" THEN 



5U60000 
51170000 

-5j.JLa.CUKm. 

51190000 

51200000 

JH2i.QjQfifl. 

512*0000 

51230000 
_5_l2 4£Qfl.U.. 



BEGIN 
IF LI 
ERROR 



STl THEN WrtITECulNE,12,IMAGECKAR0#* J)' 

c r a i i d n i- a t r d , u; 



go to nextcard 
end; 

1 F CHARa"*" OR CHARs" * " QR 



51250000 
51260000 
5 1 ^ 70000 - 



51280000 

51290000 

iiiogflfiji 



CH 



AR = "- 
BEGIN 
ENDOF 



" THEN 

FluEtP*TCH] :=RE.C0HUN0; 



51310000 
51320000 
51 JJQOOO 



IF NOT FIRST CARD THEN 51340000 

IF CT:sRECOHONQ-RECOPDCHATCM]) LSS SIZE THEN 51350000 

___ ERRQR(M1SSCDS ,SIZE^T) ELSE 51 360000 

IF T Glh SUE IhEK 51370000 

ERROR CEXThACCS'T- SUE); 51380000 

IF CHAR="»" OR CHAR=">" THEN ERRQRC B ADC ARO , REC ) i 5 1 390QQ Q 

IF CHAR*"*" THEN ~ ~ 3l«00000 _ 

BEGIN 51«10000 

IF FIRSTOARD THEN ERRQRC NQCDS, LASTPATCHNQ ) i 51420QQQ 



GO TO 

end; 

GO 10 ECH 



NfcXTDECK 



ESS 



END ELSE CHECKVUID, 

END' 
IF UISTI THEN WRI TE( LINE, l£, I M G ECKARD , * ] j ; 



51430000 
51440000 
51450000 



IF NOT ERRORS AND SAVEIT THEN 
BEGIN 
WR ITECNEWUISK, 10, 1 MAGE [KAfM, * T )' 



51460000 

514/0000 

51460000 



51490000 
51491000 

_5--L5jmxHm_ 



IF NEWFILES AND 
WRITE(PATCHFIL£» 
END! : 



KAHD * 2 THEN 
10» IMAQECKARU**]); 



51501000 
51502000 
515Q3000 



i 

3 
4 
5 



• • 



WH« 



# 



fr 



9 
10 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25" 

26 

V _ 

28 
29 

30 



o 



31 
32 

33 

34 

35 

36 

37 " 

3(1 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 






52 
53 

54 
55 



(56 
>7 



IF FIRSTCMRD rHE^ 

BEGIN 
~-B£.A£-llMAG E L k A r D A*J^Jj£L4vIiIf J-iiAI£fljt*j.jLi. 

firstcard*»false; 

RECORD C PATCH i:«REC0R0N0-i; 

_ _S.EflU.E N C E j.»&£al£AXfiJilX5. _ 



lNTEGErUPJINTER(T0HtPAlCH/9])#8Ji 
GC TU NJEXTCARU 

■ END/ _ 



IF SE0UENCE4SEQUENCE»*INTEGEWCP0IMER(IMAGE[KAKD*9])#8) 

THEN ERRaR(NQTlNbEfi»LASTPATChNO); 
WRITE CyASTFHFTLF* I 0, iHAfiF.KAH n.al )_j . 

RECORONQi«RECaRD'MO+W 
GO TO NEXTCARO 
-£JkDJ _ 



EOFt 



EGRESS: 



ERR0RCBADCARD#1); 

HMDL££JiD.QEE_lL£l __. . 

CHAR :="#"; 

GO TOC IF PATCh<C THEN NtxrOECK El at. ThaTSAlL); % MURE PATCHES. 



IF PATCH NEG PATCHtf AX* ■PATCHMAX-1 t«EN 
IF PATCH LSS PATCHMAX THEN 
. _ BZ&11L 



WRlTECLINt CD8L3 )> 

ERRORCV-lSbPArSfPATChMrtX-frtTtn) 

ENJJ E.LJSLE 

BEGIN 

WRITECLINECDBU)* 
. ....._ _.ER..ROR.i_EX T R AP_A.T_S_2. p A T £H" P_A_T_£ HMj XJ 

end; 
if not errors and saveit then 

_B£GI.N __ __ 



CL0SEC0LDDI5K, PURGE); 
CLOSE (NEWPATCHES* PURGE); 
,.L F NEWFILES THEN l UCK .PA T CHF I i_E ) ; 



LOCK(NEfcDISK) 
ElvO 

EM inputp hase; .. 



51510000 
51^0000 

51540000 
51550000 
5t3.iiQ.00_a. 

51570000 
5l5ti0000 
..5l_5_*Q..Q.QO 
51600000 
51610000 
51.620.000. 
51630000 
516^0000 
5-X.6-i.U.oO0 
51660000 
5167GQ00 
.51650.0.00 
51690000 
5l«>vl000 

5..lZJ_.go.G.Q. 

51710000 
51720000 

..5lI10JH_Jl 
51MO00O 
51750000 

.-51i.QQ0Q_J 
51/70000 

5i7aoooo 

.512 2 O.Q.Q.CL. 

51600000 

51810000 

.5.11^0.00.0. 

518 30000 

51840000 

.51.6 4.1 0_00 
5l6bU000 
51860000 

..S18_7_0QQ.Q 



_ QUTPUTPH ASE PROCEDURE 



% 

PROCEDURE QUTPUTPHASE; 



60000000 

#60010000 

60020000 



BEGIN 

real i#j*nextdqg,nextuqgseq*lastdog#la3Tvoidtrange; 
pointer inp; 



>6Q0i000Q 

600aoooo 

600.50000 



60060000 
60070000 

Aooaoooo 



BOOLEAN PASSEDNONE,FIHSTTlMt,vQlTA'P#TQPVClTAP{ 60090000 

LABEL NEXT>ENDOFLCJOP,EUS; 60100000 

%t»*Mt»*it»nutt«t»»»4»nMt»it»titnnttn»n»pift»t!4t)»t#n»^tt»nit»»^inu»tt»u ##»**##6CUOooc 



PROCEDURE REEDCDECiO; 
VALUE deck; 
real deck; 



BEGIN 

LABEL EGRESS; 
HEAL i; 



601*0000 
60U0000 
60140000 



60150000 
60160000 
6017000C 



IF RECCFOCDECKJ<0 THEN GO TO EGRESS,* 

I F ( I l«RECORD [DECK n»RECORD[ DECK 3*1 )2EN0QFFlLEC DECK ]THEN 



60180000 
601V0000 
6Q2000QQ 



"ft 

2< 

3 

4 

si 

6 

7 

e< 

9 

10 

i.4 

12 
13 

ui 

15 

16 

17 I 

18 

19 

20 % 

21 

22 

23 1 

24 

25 

26 I 

27 

29 

29 f 

30 

31 

32 i 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 



• 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57, 



e 



# • 



BEGIN 

RECOKDrUECKJxs-EMOCFFlLb.£CECKJ; 
ENrSOFFlLE:*FNLS o FFlLE4i; 



60210000 
602^0000 



REPLACE POINTERCTOPCDECK,*]) 

"9" FOR 8; 
S Egr0ECK31«99999999; 



by 



" FOR 7 2* 



60240000 
602fj0GC0 
6Q 2 60QQ Q 



GC TO EGRESS 

end; 

REA0(MASTERFH.E[lJ»10»TQPL0bC*»*n> 



6Q27G000 
60260000 
60290000 



EGRESSt 



SEQtDECK]«»INTEGERCP01NTER(T0PCDECK,9])#e); 
END READ A CARP FROM A CATCH QECk; ___ 



60300000 
60310000 
60320000 



10 

11 

12 
13 
14 

'('3 

16 
■17 
18 



19 
20 
21 



22 

23 

24 

26 " 

26 

27 



37 
38 
39 



40 
41 
42 



43 



46 
47 
48 



49 
SO 
51 



PROCEDURE RITECOECK); 

VALUE deck; 



REAL DECKi 



BEGIN 

IF NOT 



*#«*#*#*t**60i;>0000 

60340000 

. 60350000 



_.LL 



ANONO THEN IF EVUuvEs" 
BY "VjPATcHNUMBtRrDECK] 
LX STG T H FN. - 



60360000 

60370000 

-AOJ-MUDiL 



FDR 



" THEN REPLACE EVQLyE 
3 DIGITS,"-"; 



BEGIN 

karo«=medium[oeckj; 

REPLA CE REVOLVER By 



»t « 



IF 



PAU'hKUKBtHLULCKJ 
WRITECSUHTL.InE*U*TOPCDECK** 

end; 

PUNCHG 



6039000C 
6C4G0000 

60420000 
60430000 
*hHICR0N ECKARD3F QR 1*" "FnR 2»ftn<UQnnn 



t-OR 3 LUGITS*" " FUR V; 

33; 



THEN WR I TE C PUNCH * J o*l OP I DECK* * 3 > ; 
»»RITECPATCHDECK,10»T0HlDECK»*3); 
PATCfaRECQRD:«PATCHRECQRD-»i; 



604ijOOOO 

6046000C 

J&MlQjQQQ. 



60 4 fl0000 
60490000 
60S0O00C 




BEGIN 
E NOSOFF'lLLisLKUbJFFiLb 



t. u L C K 3 < ) J 



6C570000 
6C3dOCCC 
60bv0000 



REC0RDCCECK3»=ABS( RECORD [DECK j)-l 

REPLACE POlNTERtT.OPtOECKf*l) BY " 

VCIQSEQUENCE FOR 8 DIGITS* " 



SVOIDT "* 
" FOR 57* 



60600000 
60610000 
60620000 



SECtDECKJ»s3EtUElMCE FOR 8 DIGITS, 60630000 

END CREATE A VOID CARD; 60640000 

% # UUU #####* «JUUUUUUUUULJUULM ****** ********** fix***** ************** * tJUU AJ UULbJQJ&Qi iM 



BOOLEAN PROCEDURE VQlDCAROtDECK ) i 
VALUE oeck; 
REAL DECK; 



60660000 
60670000 
60660000 



BEGIN 

LABEL EGRESS; 

P OINTER Pi 



60690000 
60700000 

6Q710 QQ Q 



IF NOT (V0I0CARD«»REAL(P J »PQ INTER C CUP COECK** ] )* D»"S") THEN 
GO TO FGKESS; ; 



60720000 
60130000 
6Q74Q0 QQ 



52 

53 
54 

55 
56 



SCAN P*P+i FOR COLUMN. /I wHIlE = " "; 
IF N0TCV0IDCA«0S s REALCP,4)B»valD") THEN 
GO TJ FflrtESS* . 



IF NQTCVaiTAP:*REALCP*3)*"VQluT"> THEN 

SCAN PJP+4 FOR C0LUMN:C0LUMN»4 WHILE*" " ELSE 

SCAN PiP + 5 FOR C0LUMNtC0LUMN-5 WHILE*" "j 



60fb0000 
60/00000 

6 Q//Q 0Q0 



60780000 
60790000 
60600000 



56' 
jj 



• • 



r 



I 



10 



_LCi.K££ 



IF VOIDCAKDi^COLUMN GE- H THEN 



_.i 



60810000 
608«iOOCO 
i_0.aiQ.QQXL 



END SCAN TO SEE IF IT IS A VOID CARD/ 606,0000 

..— _ PROCEDURE *RlTE. CQMFLICT(TYPt,n£CtO ; . 60660000 



VALUE TYPtvOECK/ 
REAL lYFE'DECK; 
BEGIN 



POINTER P*INH; 
INTEGER KARD* 
LABEL EGRESS/ 



608^0000 
60880000 
60890000 

60900000 

60*10000 

._&_)_-j__!__Q_Q_ 



IF SEQCDECK]=99999999 
KARPfMEDlUMLTOPUOfaj ; 



THF.K TO fcGHESS; 



INP:»POINTER(IMAGEIKAHO,* j); 
IF FlRSTTIME TH£N 
fLEJiliL 



IF CONFLICTS AMD NOT WCOlV THEN 
BEGIN 

wcqn: = trul; 



IF LISTI THEN 
MAS1HEA0C2) 
FhD{ 



WHIT£(LINEtPAGE3)l 



IE. 



WRlTfc(LlNELUHLJ)/ 
FIR5TTlME:sf ALSEi 
. .X.YPE NLO ft- THEN 



BEGIN 



IF VOlDlNGSEO-O TH£N 
RfPlA TF INP BY POTMTfRf TU Pf TCJPpnR.*n 

10 WOHC-> 



FOR 



60930000 

60940000 

6 0950 000 

60960000 
60970000 

- __tf_S.__Q__Q__. 

60990000 
6100000C 

. 6-JJLLQILQIL 

61020000 
61030000 

___4i___U___Q._L 
610^0000 
61000000 

— iaiiaioau, 

61062000 
61070000 
64-0-80000.. 



REPLACE INP+80 bY " » 
PATChlMUMhFHETUPDlim 



*kNf,lChLNt. [KARD j 
FOR A rums. 



FOR l,»< "FOR 2* 



__-_o_-. 



" CONFLICTED WITH;"," " FOR 
HRITECLINE'H* IMAGE C KARD* * J )* 



io; 



61090000 

61100000 

_6XU.Q0.DJL 



end; 
replace h 



6H20000 

61130000 

.6JUJ1X10.0- 



Ii\P BY PljlMEKC T0PLDECK**J) FOR 10 WORDS. 



"»XHlChONECKA h LJ FUR 1 



PATCHNU^BERLDECKJ 
CASE TYPE OF 

BEGIN 



FOR - DIGITS*" 



FOR 2* 



FUR 4 



61140000 

6H-50000 

.J__Jj___0_0J_. 



REPLACE P BY "DISCARDED", " " FDR \\i 
REPLACE P BY "SEyULML CHANGED"* •• » FOR 4> 
REPLACE. P BY "CREATED", " " FUR i3# 



611^0000 

61180000 

jLti_____Q_L 



REPLACE P BY "VOIDED"* " 
REPLACE P BY "VOID RANGE 
REPLACE P bY "VOID RANGE 



" for h; 
extended '.-"j 

DECREASED"; 



61200000 
61-10000 
61220000 



REPLACE P BY "RA|\GE aAS : " , VLlD 1 i\GSEQ FOR 8 DIGIfS* 



61230000 

61240000 
61230000 



c,iyq; 



EGRESSI 



WRlTE(LINE,i«»lMAGECKAHD**])i 
END OUTPUT OF CONFLICTS; 



61251000 

61-32000 
61-60Q00 

61270000 
61260000 
6129000Q 



- -■■•■■— . : — — —, — ~~ • : - ■ -^ w- ■■■ -?..■■ "..- . .- —■■-"■ t-t-v -w»-..:«n. r. *: t -n: :,.:■, ...... . .. :■■ , M .' ■ '. M j_ «» y V w V y 

%$ *### #****#*###***#« t**********lt*****#****fg*t*.**»*#*$***9#t*g$$g$ttt9g6l3Q0QQQ 

PROCEDURE PASSCDFCK^TlLSEQJi 61310000 
VALUE DECK* TlLSEti; 61320000 



REAL deck^tilseq; 

BEGIN 

REAL FJRSTSEQgLASTSE-i 



61330000 
61340000 
61350000 



2 ( 

3 
4 
5< 

6 
7 

si 



10 

11 ' 

12 

13 

,4 I 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 ' 

24 

25 

26 ( 

_ 27 
26 

29 { 

30 

31 

32 { 

33 

34 

36 i 

36 

37 

36 ( 

39 

40 

4, i 

42 
43 

44 I 
46 
46 



53 ' 

54 

55 

56* 

5Z 



' <> 

,16 

17 

IB 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



BOOLEAN DUNE' 
LABEL EGRESS; 



FlRSTSECi»SEiiC0ECK3J 
DO BEGIN 

IF SEQtOECKl-TlL-Efl THEN GO T- EGRESS; 



6*360000 
613/0000 
-6.lJto.QQQC. 
613*0000 
61400000 
61 ^10 0_0^_ 



LASTSEQ!=SEQ[OECftJ; 
IF VOIDCARDCDECK) THEN 
IF VOIOSEQ GjR TlLStU THEN 



BEGIN 

vuidingseqi"tilseqi«voioseq; 

LASTDOGtsnECK; 



6l4_00C0 
614J0000 
61 44Q QQQ. 



61450000 

61*60000 

-_1_7Q.QQ. 



IK U0N£«=CQNFLICTS THEN 

WtUTECONF LICT(4,l:ECK); 

i__ 



61*80000 
61440000 
615QQ0QJQ. 



IF CONFLICTS THEN 

IF NOT DONE THEN 
WRI TFC0NF LICTC3#DECK)J 



61510000 
61520000 
615300QQ 



REEDCDECKJ; 

END UNTIL DUNE:=|-ALSE; 



__&_-_._».. 



END PASS CARDS FROM A PATCH DECK; 
X 

____ E__J___ *t****t* **************** * *********** ****M****t*M*MMt***aM* 

CUTPUTPhASE PPLCLQUHE LRIVER 

##*### it #»##»########» ## ii #uttt *#*#*# it «#*)»»» ti tmttn## tit # #*###»##*# iniuttzt 

_ 1.F....E Al£.tiMAJL4JSi_Xt_I±l£jy 



61540000 
61550000 

_4J___0_JQ- 

615/0000 
70000000 

___2Xl_iilO-00-. 



BEGIN 



REPLACE PUINTER(TQP[T0P(JGG: = 0,*]) bY 
"END."*" _ FOR 6b>"9» FDR 



700_0C00 
##;70030000 

— 7_cx)_joxxao. 

70041000 
70042000 
70043000- 



GO TO ENOOFLuUP/ 

end; 

INP: -POINTE R flMAGECKArl,),* 3 ;; 



7Q0HUQQQ 

70045000 

_ C M 500—0- 



NEXT: 



t0pd0gseq:*seqct0pd0g!=patchmax3; 
firsttime:*true; 

D_ _£_.__ 



passedkcneibThue; 

FOR i:sTDPDOG-l STEP "1 UNTIL DC 

BEGIN 



70060000 
700/0000 
700 60 000 



7O0s»0OC0 
70100000 
70110000... 



IF CJ.bSEQU])<TDPD0GSE6 THEN 
BEGIN 

firsttimeistrue; 



7C120000 
70130000 
701 40000 



TOPQOGSE^!-J> 

topdog:=i; 

END 



701500C0 
701600CO 
701/0000 



ELSE 



IF J-TUPDOGSEQ THEN 
BEGIN 



70180000 
701*0000 
70200000 



IF VDIOCARDCI) THEN 

IK VOIDSEi»<( J+l) THEM 
BEGIN 



70-10000 
70220000 
7Q23Q000 



IF CONFLICTS THEN 

WRITECQNFLICTCQ»I>; 

RE E p cn ; , . 



70240000 
70250000 
70260000 



else 



END 



-EGIN 



70270000 

70280000 
702 90000 



REPLACE P0INTER(T0PCI»9J) BY 70300000 

SEQCUlsj+t FOR 8 DIGITS; 70310000 

IF CONFLICTS THEN 70320000 



J57J 



I, 

I 3 

u 



|6 

; 
8 

"9 

- 
ID 

11 

12 

13 

14 

IB 

16 

r 

18 

IS 

20 

21 

22 

23 

24 

2B 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

J6 

37 "~ 

3B 

59 

40 

41 

4? 

«. 

44 

45 

46 

4; 

46 
49 

50 
51 
52 
53 
54 
5S 
56 
S7 



END 



URI rECONFLICTCl^I); 



ELSE 



BEGIN 

RtPLACE ImP BY POINTERCTQPCTOPD06**]) 
£M_JJL.B.QJiilSl . 



IF CONFLICTS THEN 

hHlT£CONFUICT(0»I) 
M iJJl lll ___ 



Eno; 
passednune:sfalse; 

ENDi . ._ 



END>" 
END UNTIL PASSEDNONE UH 

If . Yfl.lil£AaiKJJlPilQai_Iri£Jl 

BEGIN 

TOPVOITAPJsVQlTAP; 
IE C.QMEU-C-XS--LHO 



seqi rcPDoa J = 99999999; 



R£PL«C£ INP BY PUXNT£KcTOPC ruH00G#* 3 ) FUN 10 WQRQS; 
VOlDlNGSEQ:=VOlDoEd; 
IE. -NJDJ— uaXlA£_LHEiL __ 



00 



BEGIN 
REEOCTQPDQG); 



IF 



StQl TOPUoG]<VOIl) JlQ THEN 

WKlTECUiMFHCT(3#T0PU0iij; 

EJUX UN-Ii.U-SE.JilJ.i2je..iJluJ>.V.iiI.0iEa.i... 

nextdog:=o; 
lastdqgistopdog; 

FQR . I l.*.LQP_Qmi=l_ai££._=l._Ulim.. U._I11L 

PASSU, vjidingseuj; 

NEXTDOGSEQ8aVQlorNGSE>ji 
i J.B..I .' »L_A SJJiWa_ SI LP 1 UN r U J j _a T £H m AX 



IF SEQtlKNEXTDOGSEU THEN 
IF VOIUCARUU) THEN 

_ BEGIN 

IK NOT VOJTAP f H E i\ 
B i. G I N 

If- VQI Ui»F.«SVO lf:IiMfaSEfl 



UjQL 



..i.HJLN_ 



ELSE 



BtfaIN 

IF CONFLICTS THEN 

KftJ T E.C OKF H C "f C Oj-J i, 

El\U 

BEGIN 



VolDlN6SE«l«StUtI]J 
I«- CONFLICTS THEN 

tjRj Tj.C0NFllCT(5,I) 



70330000 
70340000 

Z0JM1GQ.Q 

70360000 
70370000 

.7.(11800.0.0. 
703vOO00 
70400000 

_7.flil.ti 0.0.0 
70420000 
70430000 
2M .__).____<). 
7O4bQOO0 
70*00000 
70 i/0 00.0 
70480000 
70490000 
2.0.5.0.01100 
70bi0000 
70-20000 
70^.3.0000 
70540000 
70b50000 

ZAh&Qjyaa.. 

70^70000 
70-00000 
7Dha.QQ.Q0 
706UOOOO 
70610000 
.200200.00 
70630000 
7064U000 
7.0,6 b 00.00 
70660000 
70670000 
7.Q6 80Q5Q 
70090000 
70700000 
70710QOC 
70720000 
70730000 
70.7.40000. 
70 7b 00 OC 
707o000(J 
707/0000 



END 



70760000 
707V000C 
70800000 



END 

END 



IF 
IF 



NOT 



ELSE 

NEXTDOGSEQt 
TOPVOITAP THEN 



7081000U 
70820000 
70830000 



»SE«CNEXT00G«*n; 



NEXTDOG NEQ ThEN 
BEGIN 
INSFrJTVOIO(LASTOLG»NEXTlHlGSLU'T0P0 0GSE 



Q)f 



IF CONFLICTS THEN 
BEGIN 
FIRSTTIME8*THUEJ 



70840000 
708-0000 
7Q86000Q 

708 7 0066 

70880000 
7Q690Q0Q 

7 090"0"000 
70*10000 
70920000 



12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 I 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 { 

39 

40 

41 I 

42 

43 

44 

45 

46 

47 

48 

49 

50 ' 

51 

52 

53 I 

54 

55 

56 < 

_5* 



m 



# • 



r~ 



i 

8 
9 

10 
11 
12 

131 
14 
'.S 
16 
17 
18 
,." 

121 



• 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 ~ 



39 
40 
41 
42 
43 
«4 
45 
46 
47 
18 
49 
50 
51 
52 
53 
54 
55 
56 



RtPLACE. INP BY PUIMER(TUPlTQPOQGSsNEXTOOG»*J) 70930000 

FOR 10 hORCS; 70V40000 

HRITECCNFLIU C 2>LASTnn&)J 709 S 000 



end; 

RITE(LASTDOG); 

-INS ERTVQIPCLASTQ{jfa>V0lDlMGSEC>ME.XTDPSSEO+lU 
IF CONFLICTS THE* 

WRI1ECCJNFlICT(2#LAS1DGG)* 
GG TO FNDQFLQQP; 



70960000 
709/0000 
70960000 



END/ 
IF NOT TOPVOITAP THEN 

INSERT VCTDfTOPQnG.VOTh TNG SEQ. 7 nPDLGSEti) 



709*0000 
71000000 
71 01Q00H. 



ELSE BEGIN 

REPLACE PblNTERC TOPL TuPDOG#* 3 3 BY "SVQIDT "* 
—MAX CLASTVPmTRANGEjVOinTMfiSm, FUR ft OTfiTTS, 



71020000 
71030000 
71040000 



" M FOR 57*T0PDQ6SEQ FOR 8 DIGITS; 

IF VUIDINGSEQ LSS L ASTVQ 1DTR ANGE THEN 

_._ IF CONFLICTS THEN W RI TECONFLlCT( 6, TOPOQG 3 

ELSE LASTVOIDTRAMiE»=VOlDlNGSEQ; 

end; 
JBxiE-ump nu ro; 



71041000 

71042000 

■J1043000. 



ELSE, 



71044000 
71045000 
710 460 00 



VOIDINGSEQJ 
END 



7104/000 

710*48000 

..£4_Qi.aoX)0 



XLSE-. 



ENDOFLOGPJ 
IF 



RITECTCPDOG); 
EnDSDFFI LE<PATCH MAX THElv GO TO NEXT 



71060000 

71070000 

-74 8 000 



sure there is a 9*s caRoT 
by quest* "Eno.«s •♦ " fqr 



RIte(tqpoog); comme.ni be 
replace pointerctopctupoog,*]) 
top c topdog>9 3 1 spatchrecqroj 

IF LISTG THEN WRI TE ( SGHTlI NE» 1 2 #TUPC T GPQOG , * 3 ) > 
WRITE(PATCHDECK#iO#T0PtTQP0U'G#*J); 
LASTC0NTRQLCAR0lMAGE[9]tsPATCHKEC0HD; 



71090000 
71100000 
7JJ1.Q00Q. 



90, 



71120000 
71130000 
7 U40Q QQ 



71150000 

71160000 
7 1170000 



HRITE<PATCHDECKCLASTCaNTR0LCAR0]#10*LASTCQNTR0LCAR0lMAGEC*J>J 71180000 
IF LISTG THEN 71190000 

WR lTE(SORTLlNECLASrCONTRULCARD],lQ,uASTCONTROlCARDlMAGE[»3»7l 2 

IF GOTOIT THFN Z]P WITH PATCHQECK; * f I A t UP BEFORE PRINTING P AT7 12 l0~00b~ 
LISTG THEN 71220000 

BEGIN 71230000 



IF 



rewind(sortlinE); 
if listi or conflicts 
mastheadc1 ); 



THEN WRITECHNECPAGEJ); 



WHlLETRUtDG 
BEGIN 
READCSORTLlNE*ia»lHAGECKARD»*J) 



71240000 

71250000 
71 260Q0Q 



WRITECLINE#12MMAGECKARD»*3) 

END 



ceosi; 



712/0000 
71280000 
7129000Q 



end; 



EOSl 

end output 



phase; 



71300000 
71310000 
71320000 
71330000 

71340000 
80000000 



COMMENT#<*tf*#f#ff#*#f#«#«#«####|>ff«*f«####f#**f#«#«##«««*«#f'« tff# | # |«' f]y80 o l0ooo 

PROCESS PROCEDURE DRIVER 80020000 

80040000 
REPLACE PQINTERCNAMEU]) BY "DPC"; 80050000 

REPLACE P0IWTER(LASTCQNTR0LCAR0IMAQEC103) BY 80060000 



% 



ti » 



for 2 words; 

REPLACE P0INTER(IMAGE[KaRDM03) 
TNPUTPHASFJ 



BY 



FOR 2 words; 



80070000 
80080000 
8QQ90000 



1< 



6 

7 

8 

9 

10 

11 

12 

13 

14! 

15 
16 
17 \ 
18 
19 
20 ( 

21 

22 

23 { 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

41 i 

42 

43 



47 1 

48 

49 

50 ( 

51 

52 

53 1 

54 

55 

56 1 

57 



• • 



2 
3 
4 
5 
6 
V 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 



27 
28 
29 
30 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

46 

•9. 

SO 

51 

52 

53 

54 

56 

56 



ClOSECCARD); 
IF ERRORS THEN GC AXI T ; 
..EO-lJiimiA&JERFILE); 



% 



MASTERFILE.ACCESStaRANDOM; 

outputphase; 

.-end. -q f . p.r0££_3.sj_ 



80100000 
80110000 

80130000 
80U0000 
BlLUiQQfl.Q 
90000000 



COMMENT tt**$**tt*t**»$9*t*tt*t* *i******»*t*V*t* »*** #***#*##***###**#*##» 900 1 0000 

OUTER BLOCK QtilVtrt , _9Dfi2.QQ.QQ 



NOHEADING* 

KARDJS2; 

CAKD ,s,Qj lL Yj,i;IR,UE,i 



nomastistrue; 



% 90040000 

JUAZUmllMZllM OQQSQO00 

90060000 
900/0000 

9.00..a.Q_0.QJ} 

90090000 
90100000 

9£l LQ. Mi. 

9Q12GQQ0 
90130000 

9.Q_1_40QQQ_. 



READ(CARD#10i»lMAGEtKARD>*] ); 

IF REAL(«l«sP0lNTER(lMAGE[KAR0#*])»2)* M $e" THEN 3ETQPTIQNS ELSE 

tlSTIi«Ll STGl«CONFLIcTS »»G OT0IT «_* TJ*J_£i___i DEFAUL T OPTIONS . _ 

GETDOLPERCO; 

process; 

AXIT J 



IF 



NOT NOHEADING THEN 

BEGIN 
_F_Qfi M_A T_ PAN("PR OC ESSOR 



TIME » " , 1 s *- m -_£££J^lD_S,i___l 



M5»" SECUNDS.")* 



/"I/O TIME 

EC////"NO^BER OF ERRuKS DETECTED ="F«.o); 

- - I F N.Q I. EB RQEJL...I±LEJv....>iiUX£ ( I. J ,\ E-C D H L ] 3 ELSE, — 

BEGIN 

FILE SPO 11(1*10); 

— krltxls.pju<i3.," errors detected . "> . mumf.kk.?..;. 

end; 

WRITE(t.INE»E'NUMERR); 
_ W R I TE ( L I_N E * PAN»TIME ( 2 ) /Q0» TJ ME ( j J/60 ) 

END " ~ ~' '"" 

END OF PATCH MERGE. 
-MPiEND, _L_ST CARD ON OCRDI NG TAPE 



90150000 

9Q160000 

J?_QiZQ.QJm 



90180000 
90190000 

.._. . 94J^OD.O00 
90210000 
90220000 

....... .5 .0.2.300 0.0 

90240000 
90250000 
_ 90260000 
9 2 7 0000 
90280000 
99999999 



2< 

3 

4 

5 I 

6 

7 

B< 

9 

10 

11 ( 

12 

13 

14 < 

15 

16 

,7 I 

18 

19 

20 i 

21 

22 

23 4 

24 

25 

26 f 

27 

28 

29 i 

30 

31 

3.2 < 

33 

34 

35 { 

36 

37 

38 % 

39 

40 

41 4 

42 

43 

44 % 

46 



47 

48 

49 

50 ' 

51 

52 

53* 

54 

55 

56 < 



to 



LABEL 000000000PRlMEH001/'b099CC tX C« JECT/RE AU JF ILE SQUHCEFlLEsSYMBUU/PMtKGE JENO* 
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